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ABSTRACT 


THE RM80 PERFORMANCE EXERCISER PROGRAM IS DESIGNED TO PERF OK/' 

AN INTERACTIVE TEST ON RM DISK DRIVES CONNECTED TO A MASS8US 
SUBSYSTEM. THE DRIVES MAY BE CONTROLLED BY AN RH70 CONTROLLER. 

IN ADDITION TO PERFORMING AN INTERACTIVE TEST OF THE DISK DRIVES 
ON THE SUBSYSTEM, THE PROGRAM IS INTENDED TO BE USED TO VERIFY 
THAT THE DRIVES UNDER TEST ARE PERFORMING TO 1HEIR DATA ERROR 
RATE AND SEEK ERROR RATE (SEE ERROR RATE SPECIFICATIONS). 

THE PERFORMANCE EXERCISER PROGRAM WILL EXERCISE DRIVES CONNECTED 
AS EITHER SINGLE OR DUAL PORT UNITS. DUAL PORT DRIVES ARE TESTED 
BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING SYSTEMS. 

THE PROGRAM WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND SINGLE 
PORT DRIVES. 

TO OBTAIN INTERACTIVE TESTING, OPERATIONS ON THE MULTI-DRIVE 
CONFIGURATIONS ARE OVERLAPPED (OTHER DRIVES ARE PERFORMING SEEK/SEARCH 
OPERATIONS WHILE ONE DRIVE !S PERFORMING A DATA TRANSFER). OPERATIONS 
AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA TRANSFER 
RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED. 

THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM. IF A 
DRIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES, 
THAT DRIVE IS AUTOMATICALLY DEASSIGNED. (THE OPERATOR NAY OVERRIDE 
THE AUTOMATIC DEASSIGNMENT FEATURE.) THE PROGRAM REPORTS PERFORMANCE 
STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE 
OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR. 

AIL DATA TRANSFER COMMANDS EXCEPT WRITE HEADER 8 DATA AND WRITE CHECK 
HEADER t DATA ARE USED. RECALIBRATE AND READ-IN PRESET COMMANDS ARE 
USED AT STARTUP AND DRIVE INITIALIZATION. RECALIBRATE AND 
RETURN-TO-CENTERLINE COMMANDS ARE USED DURING ERROR RECOVERY. 

THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE 
WRITE CHECK COMMANDS. THE WRITE CHECK COMMANDS ARE USED TO VERIFY 
A PREVIOUS WRITE OPERATION. THUS. WHEN A WRITE COfVtAND IS SELECTED. 
THE DATA WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK 
COMMAND. 

DEPENDING UPON WHETHER THE PROGRAM HAS BEEN LOADED VIA APT AUTOMATIC 
MODE OR APT DUMP MODE WILL DETERMINE WHETHER; PROGRAM/OPERATOR 
COMMUNICATIONS ARE THROUGH THE KEY80ARD, DYNAMIC PROGRAM OPTIONS 
ARE SELECTED VIA SWITCH REGISTER SETTINGS AND ERRORS ARE REPORTED 
ON THE CONSOLE TERMINAL. 

GENERAL DOCUMENT NOTES 

A. IN REFERENCE TO ALL NUMBERS IN THIS DOCUMENTION. TO INDICATE THE 
BASE OF A NUMBER LARGER THAN SEVEN. A PERIOD!.) WILL FOLLOW THE 
NUMBER TO INDICATE DECIMAL OR NO PERIOD WILL FOLLOW THE NUMBER 
TO INDICATE OCTAL. IF THE NUMBER OCCURS AT THE END OF A SENTENCE. 

A DOUBLE PERIOD (. .) INDICATES DECIMAL AND A SINGLE PERIOD! .) 
INDICATES OCTAL. ALSO, ANY REFERENCES TO TIME ARE ALWAYS IN 
DECIMAL. 
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2. REQUIREMENTS 

2.1 EQUIPMENT 

PDP-11/70 PROCESSOR 
16K MEMORY 

KW11-L OR KWll-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH70 CONTROLLER 

1 TO 8 RM80 DISK DRIVES 

2.2 MEDIA 

THE PERFORMANCE EXERCISER PROGRAM REQUIRES FORMATTED DISK 
AND MUST BE FORMATTED IN (16 BIT) MODE. 

2.3 PRELIMINARY PROGRAMS 

RM80 DISKLESS TEST, PART 1 t 2 

RM80 FUNCTIONAL TEST, PART 1,283 (OPTIONAL PART 4) 


3. OPERATING PROCEDURE 


3.1 LOADING THE PROGRAM 

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

.PAPER TAPE, USING THE STANDARD PAPER TAPE PROCEDURE 
.XXDP MEDIA, USING ANY XXDP DEVICE 

3.2 STARTING ADDRESSES 

200 - START ADDRESS, ALL SWITCHES CLEAR (SEE SECTION 3.4) 

WHEN THE PROGRAM IS STARTED, A DATA PATTERN WILL BE WRITTEN TO 
ALL ON-LINE DRIVES IN A SEQUENTIAL SEEK MODE. UPON COMPLETION OF 
THE WRITE, THE PROGRAM GOES INTO A TESTING MODE. 

204 - RESTART ADDRESS, THE RESTART ADDRESS PROVIDES THE OPERATOR WITH 
THE ABILITY TO CHANGE THE DEFAULT RM/RH ADDRESSED (SEE SECTION 
4.1.2), CHANGE ANY PROGRAM PARAMETERS (SEE SE .‘TION 4.1) OR 
CHANGE DRIVE LIMIT PARAMETERS (SEE SECTION 4.2). 


3.3 PROGRAM CONTROL 

PROVIDED THE PROGRAM HAS BEEN LOADED AND STARTED VIA THE APT DUMP 
MODE OR THE DIAGNOSTIC IS RUNNING IN STAND ALONE PROCtSSOR/DRIVE 
OPERATIONS ARE INITIATED AND CONTROLLED BY KEYBOARD COMMANDS AND 
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SWITCH REGISTER SWITCH SETTINGS. 

HOWEVER. IF THE PROGRAM IS LOADED VIA APT SCRIPT MODE ALL SETUP 
AND SWITCH REGISTER SETTiNGS WILL BE PROVIDED THROUGH THE APT c TABLE. 
TYPEOUTS FROM THE USER DIAGNOSTIC MAY OR MAYNOT BE INHIBITED 
DEPENDING UPON WHETHER OR NOT THE APPROPRIATE BIT IN THE E TABLE 
HAS BEEN SET. 

3.4 SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM 
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 
AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 'SOFTWARE' SWITCH 
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE 'SOFTWARE' 
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
BY TYPING A 'CONTROL G'. THE PROGRAM WILL RECOGNIZE THE 'CONTROL G' 
AT ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE. OR 
IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE 'SOFTWARE' 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 

'SWR = NNNNNN NEW =' 

EACH TIME SWITCH SETTINGS ARE EN T ERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. 'RU30UT' 

AND 'CONTROL U' FUNCTIONS MAY BF USED TO CORRECT TYPING ERRORS DURING 
SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE 'SOFTWARE* SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE* REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SW<15>=1 

SW<14> 

SW<13>=1 

SW<12> 

SW<11> 

SW<10>=1 

SW<09> 

SW<08>-1 

SW<07>=1 

SW<06>=1 

SW<05>=1 

SW<04>s1 

SW<03>-1 


SW<02>=1 


sw<oi>=i 

sw<oo>=i 


HALT ON ERROR 
NOT USED 

INHIBIT ERROR TYPEOUT 

NOT USED 

NOT USED 

BELL ON ERROR 

NOT USED 

INHI8IT END OF PASS MESSAGES 

DISPLAY ALL DATA COMPARE ERRORS 

DO NOT ALTER THE CURRENT OPERATION PARAMETERS 

PARTIAL -REGISTER DISPLAY IF ERROR; DO NOT DISPLAY 

ECC CORRECTION RESULTS 

INHIBIT MAXIMUM ERROR COUNT CHECK; DO NOT DEASSIGN 

DRIVES WHEN END OF TEST IS REACHE6 

DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 

IF *DCK', 'DTE'. OR *WCF' ERRORS OR AFTER THE 28TH 

RETRY IF UNCORRCCTABLE *DCK* ERROR 

IF DATA COMPARE ERRORS t SW<07> SET. DISPLAY REST 

OF SUFFER 

INHIBIT SUBSYSTEM STATUS TYPEOUT DURING STARTUP 
INHIBIT PERFORMANCE REPORT AFTER SPECIFIED TIME 
PROMPT FE CYLINDER MESSAGE DURING AUTO TEST MODE 
INHIBIT DATA COMPARE AFTER READ COMMAND. W/0 ERROR 
'•READ ONLY" OR LOCKED 'READ ONLY" MODE 
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SU<00> 

WHEN THIS SWITCH IS SET(1), THE PROGRAM WILL OPERATE IN “READ 
ONLY" MODE. IF THE SWITCH IS CLEARED(O) , THE PROGRAM WILL RETURN 
TO READ/WRITE MODE DURING TESTING. THIS SWITCH ONLY EFFECTS THE 
TESTING PORTION OF THE PROGRAM. 

FOR EXAMPLE. IF THE PROGRAM IS STARTED AT ADDRESS 200 . A DATA 
PATTERN WILL BE WRITTEN TO ALL ON-LINE DRIVES IN A SEQUENTIAL 
SEEK NODE. UPON COMPLETION OF THE WRITE. THE PROGRAM GOES INTO A 
TESTING MODE. HOWEVER. IF THE OPERATOR SWITCHES TO ‘TIE AD ONLY" 
NODE (SWO-1) JUST PRIOR TO OR DURING THE SEQUENTIAL WRITTING 
OF THE DISK. THE PROGRAM WILL CONTINUE WRITTING UNTIL 7 HE 
SEQUENTIAL WRITE IS COMPLETED. UPON COMPLETION OF THE SEQUENTIAL 
WRITE. THE PROGRAM WILL SWITCH TO A ‘HEAD ONLY" TESTING MODE 
UNTIL SWO IS RESET TO ZERO BY THE OPERATOR. 

HOWEVER. IF THE OPERATOR WISHES TO MAKE SUttE THAT THERE IS 
ABSOLUTELY NO WRITTIN6 ON THE DISK AT ANYTIME. THE PROGRAM MAY 
BE LOCKED IN "READ ONLY" MODE. 

THE PROGRAM CAN BE LOCKED INTO "READ ONLY" NODE BY STARTING OP 
RESTARTING THE PROGRAM WITH SWO SET(I). AFTER THE PROGRAM HAS 
BEEN LOCKED IN "READ ONLY" MODE. SWO WILL HAVE NO FURTHER EFFECT 
UNTIL THE LOCKED NODE IS RELEASED. TO RELEASE THE PROGRAM FROM 
THE LOCKED "READ ONLY" CONDITION. THE PROGRAM MUST BE STARTED 
OR RESTARTED WITH SWO CLEAR(O). 

FOR EXAMPLE. THE PROGRAM IS STARTED AT ADDRESS 200 AND LOCKED IN 
"READ ONLY" NODE. A SEQUENTIAL READ WILL OCCUR TO ALL ON-LINE 
DRIVES. UPON COMPLETION OF THE READ, THE PROGRAM GOES INTO A 
"READ ONLY" TESTING MODE AND WILL STAY THAT WAY UNTIL RELEASED. 


3.5 PASS/TEST TERMINATION 

A PASS IN RANDOM 'T* COMMAND MODE OR SEQUENTIAL T COMMAND MODE IS 
DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED. THE NUMBER OF BITS 
OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER THE SOFT ERROR 
RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. 

THE SOFT ERROR SPECIFICATION FOR THE RM DRIVE IS NO MORE THAN 1 SOFT 
ERROR (NON-DISK RELATED) IN 1 X 10*10 BITS READ. (SEE SECTION 3.5.1 
FOR THE 901 CONFIDENCE LEVEL) 

THE SEEK ERROR SPECIFICATION FOR THE RM DRIVE IS NO MORE THAN 1 SEEK 
ERROR IN 1 X 10*6 SEEKS. (SEE SECTION 3.5.1 FOR THE 90X CONFIDENCE 
LEVEL) 

A PASS IN 'W' OR 'R* COMMAND MODE IS DETERMINED BY THE MAXIMUM 
DISK ADDRESS LIMITS SETUP BY THE OPERATOR. 

3.5.1 PASS TERMINATION 

END OF PASS FOR A SINGLE DRIVE IN THE RANDOM T COMMAND MODE OR 
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SEQUENTIAL *T' COMMAND MODE, IS DETERMINED BY ONE OF THE FOLLOWING 

CONDITIONS. 

A. IF PARAMETER ’ENDING’ IS 1, END OF PASS OCCURS WHEN THE DRIVE 
HAS READ 3 X 10*9 BITS (1.875 X 10*8 WORDS). IT WILL TAKE 
APPROXIMATELY 3.33 PASSES TO REACH THE SOFT ERROR RATE OF 
1 X 10*10 BITS (6.25 X 10*8 WORDS) READ. HOWEVER. IT WILL TAKE 
10. PASSES TO REACH THE 90* CONFIDENCE LEVEL OF 3 X 10*10 BITS 
(1.875 X 10*9 WORDS) READ. 

B. IF PARAMETER 'ENDING' IS 0, END OF PASS OCCURS WHEN THE DRIVE 
HAS PERFORMED 1 X 10*6 SEEKS. IT WILL TAKE 1 PASS TO REACH 
THE SEEK ERROR RATE OF 1 X 10*6 SEEKS. HOWEVER, IT WILL TAKE 
3 PASSES TO REACH THE 90* CONFIDENCE LEVEL OF 3 X 10*6 SEEKS. 


END OF PASS FOR A SINGLE DRIVE IN 
DETERMINED AS FOLLOWS. 


COMMAND MODE, 


A. WHEN A SEQUENTIAL SEEK IS MADE BEYOND THE MAXIMUM DISK ADDRESS 
LIMITS SET BY THE OPERATOR, THE PASS IS CONSIDERED ENDED. 

3.5.2 TEST TERMINATION 

IF SW04 IS CLEAR, THE TEST FOR A DRIVE IS TERMINATED WHEN: 

A. THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED IN 
PARAMETER 'PASSES' 

B. THETOTAL ERRORS ACCUMULATED EXCEED 25. . 

C. A FATAL ERROR OCCURS: EM14. 

D. OPERATOR DEASSIGNS THE DRIVE 

E. THE NUMBER OF PASSES SPECIFIED BY THE MONITOR HAVE BEEN 
REACHED, WHEN RUNNING IN *XXDP’ CHAIN MODE, ’ACT11 ' CHAIN 
MODE OR ’APT’ SCRIPT MODE (ANY AUTO MODE). 


3.6.1 


RUN TIME 

THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. (SEE SECTION 3.5.1) 

THE PR06RAM RUN TIME VARIES GREATLY DEPENDING ON THE OPERATION 
MODE SELECTED. THE READ/WRITE RATIO PARAMETER ('RATIO'), AND BY 
SWR SWITCHES 0, 1, AND 2. 

DATA TRANSFER MODE (DEFAULT) 

1 DRIVE - APPROX. 1.75 HRS. (TO REACH 3 X 10*9 BITS OR 1.875 X 10*8 WORDS) 
WITH SW<00> =1 AND SW<01> =1, THE PROGRAM WILL RUN APPROX. 201 FASTER 


3.6.2 SEEK VERIFICATION MODE 

PARAMETER 'WRDCNT' = 256. (1 SECTOR) 
PARAMETER 'MAXTRK' = MINTRK (SAME VALUES) 
PARAMETER 'MAXSEC' = 'MINSEC' (SAME VALUES) 
SW<01> =1 (NO DATA COMPARE) 

SW<0O> =1 (READ ONLY MODE) 
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1 DRIVE - APPROX. 4.0 HRS (TO REACH 1 X 10*6 SEEKS) 


3.7 DUAL PORT OPERATION 

A. LOAD THE PERFORMANCE EXERCISER PROGRAM INTO BOTH PROCESSORS. 

B. SWITCH THE 'CONTROLLER SELECT' SWITCH TO 'A/B' ON EACH DRIVE 
WHICH IS TO BE TESTED AS A DUAL PORT DRIVE AND CYCLE THE DRIVES UP. 

C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THOUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 

3.8 XXDP, ACT11. APT 11 COMPATIBILITY 

THIS PROGRAM IS COMPATIBLE WITH ACT11 AND APT11 IN BOTH DUMP AND 
AUTOMATIC MODES. 

THIS PROGRAM IS ALSO, COMPATIBLE WITH XXDP IN DUMP AND CHAIN MODES. 
AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE THE RM80 IS THE XXDP 
LOADING DEVICE. 

AUTOMATIC MODE OR CHAIN MODE (MONITOR) 

1. IF SW02 OF THE SWITCH REGISTER IS SET(1) WHEN THE PROGRAM IS 
STARTED AT 200 OR 204, THE OPERATOR IS ALLOWED TO CHOOSE BETWEEN 
EXERCISING THE USER PORTION OF THE DISK OR JUST THE F E CYLINDERS 
(SEE SECTION 4.1). IF SW02 IS CLEAR(O), ALL THE INPUT DIALOGUE 
IS BYPASSED AND THE TEST IS PERFORMED ON THE FE CYLINDERS ONLY. 

2. THE BUS ADDRESS AND CONTROLLER INTERRUPT VECTOR ARE DEFAULTED TO 
176700 AND 254 RESPECTIVELY. 

DUMP MODE (NO MONITOR) 

1. INPUT DIALOGUE PROMPTED AFTER PROGRAM STARTS 

3.9 APT ETABLE DEFINITIONS 

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT 
ENVIRONMENTAL TABLE (ETABLE) ENTRIES, VIA RUNNING 
THE APT UTILITY PROGRAM *7SP": 

1. SOFTWARE ENVIROfffENT: 

* 1 IF APT SCRIPT MODE 
= 0 IF STAND LONE MODE 

2. ENVIRONMENT NODE: 

BIT 7 = T ETABLE DOES SIZING 
= 0 PROGRAM DOES SIZING 

BIT 6 = 1 SPOOL MESSAGES TO APT IF SCRIPT MODE 
=0 DON'T SPOOL TO APT 

BIT 5 = 1 SUPPRESS TTY CONSOLE OUTPUT 
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= 0 ALLOW TTY CONSOLE OUTPUT 
BIT 4 TO BIT 0 ARE NOT USED 

3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 

IF ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET TO 1, 

THE SOFTWARE SWITCH REGISTER WILL BE USED, INSTEAD 
OF THE HARDWARE TTY CONSOLE SWITCH REGISTER. 

4. SWITCH 2 (USER SWITCH REGISTER) 

NOT USED 

5. CPU OPTIONS 

*0T USED 

6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 

NOT USED 

7 fMTFAftilPT VFf TOP 1 • 

USED WHEN ENVIRONMENT MODE BIT 7 * 1; DEFAULT = 254 

8. BUS PRIORITY 1: 

NOT USED. 

9. INTERRUPT VECTOR 2: 

NOT USED 

10. BUS PRIORITY 2: 

NOT USED 

11. BASE ADDRESS: 

USED WHEN ENVIRONMENT MODE BIT 7 a 1; DEFAULT = 176700 

12. DEVICE MAP: 

NOT USED 

13. CONTROLLER DESCRIPTOR WORDS: 

NOT USED 

14. CONTROLLER DESCRIPTOR WORDS: 

NOT USED 


CONTROLLING THE PROGRAM 


THE FOLLOWING KEYBOARD CONVENTIONS ARE USED BY THE KEYBOARD ENTRY 
ROUTINES IN THE PROGRAM: 

A. TO DELETE AN INCORRECT CHARACTER FROM AN ENTRY STRING, TYPE A 
'RUBOUT'. TYPING A RUBOUT WILL DELETE SUCESSIVE CHARACTERS 
FROM THE INPUT. 

B. TO DELETE AN ENTIRE LINE. TYPE A 'CONTROL U' (*U). 


CZRNAAO RM80 PERF EXER MACRO V04.00 14- JAN-82 15:16:58 PAGE 3-7 


SEQ 0011 


L 1 


C. AN ENTRY MUST BE TERMINATED BY EITHER A 'CARRIAGE RETURN' OR 
A 'PERIOD'. THE 'PERIOD' TERMINATION IS RECOGNIZED BY THE 
PROGRAM AS A DEFAULT ENTRY REQUEST. UHEN A LINE IS TERMINATED 
BY A 'PERIOD' INSTEAD OF A 'CARRIAGE RETURN'. THE PROGRAM WILL 
ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO THE PRELOADED VALUES 
FOR ANY REMAINING ENTRIES. 

D. IF A 'CONTROL C' IS TYPED DURING DRIVE TESTING MODE. THE PROGRAM 
WILL ENTER THE COMMAND MODE. IF A 'CONTROL C' IS TYPED DURING 
'ENTER COMMAND' SEQUENCE. WITH NO DRIVES ASSIGNED. THE PROGRAM 
WILL BE RESTARTED AT LOCATION 204 . OTHERWISE, THE PROGRAM WILL 
RETURN TO 'ENTER COMMAND' PROMPT AND WAIT FOR A CORRECT SEQUENCE 
OF CHARACTERS. IF 'CONTROL C* IS TYPED DURING ANY OTHER ENTRY 
SEQUENCE. THE PROGRAM WILL RETURN TO THE BEGINNING OF THE GROUP 
SEQUENCE BEING ENTERED. 

4.1 PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED TO DETERMINE HOW THE RM80 WILL 
BE TESTED. THE DEFAULT ANSWERS TO THESE QUESTIONS ARE ALWAYS 
AS DOCUMENTED HERE. 

'DO YOU WISH TO EXERCISE ONLY FE CYLINDERS (L) Y ?' 

A 'Y' ANSWER WILL PROCEED WITH EXERCISING ONLY THE FE CYLINDERS 
AND SKIP THE FOLLOWING QUESTION. A 'N* ANSWER WILL PROCEED TO 
NEXT WARNING MESSAGE AND QUESTION (UNLESS THE EXERCISER IS IN 
"READ ONLY" MODE(SWO*1>. IN WHICH CASE THE WARNING WILL BE 
OMITTED BUT THE QUESTION WILL BE ASKED). 

'! CUSTOMER DATA WILL BE OVERWRITTEN !' 


'ARE YOU SURE (L> N ?' 

A 'Y' ANSWER WILL PROCEED WITH EXERCISING THE WHOLE DISK. A 'N' 
ANSWER WILL PROCEED WITH EXERCISING ONLY THE FE CYLINDERS. 

IF ONLY THE FE CYLINDERS ARE TO BE EXERCISED, THE FOLLOWING 
MESSAGE WILL BE PRINTED. 

'* EXERCISER WILL OPERATE ON FE CYLINDERS ONLY *' 

AT THIS POINT, IF THE PROGRAM IS LOCKED IN "READ ONLY" MODE, THE 
FOLLOWING MESSAGE WILL BE TYPED. IF THE PROGRAM IS NOT LOCKED IN 
'READ ONLY" MODE, THE FOLLOWING MESSAGE WILL BE OMITTED. 

'LOCKED IN READ ONLY MODE' 

WHEN THE PROGRAM IS STARTED, THE OPERATOR WILL BE ASKED TO ENTER 
PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 

'CHANGE PARAMETERS (L) N ?' 

THE OPERATOR MUST ENTER A 'Y' IF PARAMETER ENTRIES ARE TO BE MADE. 
ANY OTHER CHARACTER IS ACCEPTED AS A 'N' ENTRY. THE PROGRAM WILL 
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SEQ 0012 



IDENTIFY THE PARAMETER BY THE NAME 6IVEN BELOW, DISPLAY THE CURRENT 
VALUE OF THE PARAMETER AND WAIT FOR THE ENTRY. THE PR06RAM WILL 
TYPE 'INVALID ENTRY' IF THE ENTRY IS NOT CORRECT AND WAIT FOR A 
CORRECT ENTRY TO BE TYPED. (SEE SECTION 4.1.1) 


IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES ON THE 

SELECTED MASSBUS SUBSYSTEM WILL BE PRINTED. ON ALL SUBSEQUENT STARTS, 

THIS TYPEOUT MAY BE INHIBITED BY SETTING SW<02> =1. 

THE FOLLOWING IS AN EXAMPLE DRIVE STATUS PRINTOUT: 

'DRIVE STATUS: 

0 ONLINE RM80 

1 LOAD DEVICE 

2 OFFLINE RM80 

3 NOT PRESENT 

4 NOT PRESENT 

5 NOT AN RM80 

6 NOT PRESENT 

7 NOT PRESENT' 

THE ABOVE DRIVE STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 

1 - 7 WILL NOT BE TESTED. 

4.1.1 KEYBOARD ENTRY PARAMETERS 

DEFAULT VALUE 

NAME BASE VALUE RANGE FUNCTION 

WRDCNT 10. 7936. 6 - 7936. CONTROLS THE MAXIMUM WORD 

(SEE NOTE) COUNT USED FOR DATA TRANSFERS 

NOTE: THE PROGRAM WILL SELECT 
A MAXIMUM WORD COUNT, WHICH 
IS DETERMINED BY THE MEMORY 
AVAILABLE. THE MAX. WORD COUNT 
ASSIGNED BY THE PROGRAM 
IS 7936.(1 TRK) WORDS THE 
OPERATOR HAY SPECIFI* j|Y 
OTHER MAX. WORD COUNT AS LONG 
AS THE VALUE SPECIFIED AT 
LEAST 6 WORDS BUT NO LARGER 
THAN 7936. WORDS OR MEMORY 
AVAILABLE. (WHICH EVER VALUE 
IS SMALLER) 

INTRVL 10. 0 0 - 32767. DETERMINES THE INTERVAL (IN 

MINUTES) BETWEEN AUTOMATIC 
PERFORMANCE SUMMARY TYPEOUTS; 
NO TYPEOUT IF THIS PARAMETER 
IS 0 OR IF SW<02> =1 

PASSES 10. 1 1 - 32767. NUMBER OF PASSES TO END OF 

TEST. (THIS PARAMETER IS NOT 
USED WHEN THE PROGRAM IS 
OPERATING IN AUTO RUN MODE) 
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PATTERN 10. 

RANDUC 8 

RATIO 8 

ENDING 8 

URTCHK 8 

MESSAGE 8 

RANDOM 8 


N 1 


SEQ 0013 


0 0-15. 

000000 0 OR 1 

000002 0-7 

000001 0 OR 1 

000001 0 OR 1 

000001 0 OR 1 

000000 0 OR 1 


IF PARAMETERsO.DATA PATTERN 
IS RANDOMLY SELECTED. 

IF PARAMETERS, SPECIFIES 
ONE OF THE 15. PATTERNS. 

THE SELECTED DATA PATTERN 
IS POINTED BY THE PARAMETER 
"PATTERN . (SEE SECTION 8.4) 

IF PARAMETER = 0, THE WORD 
COUNT IS RANDOMLY SELECTED 
BETWEEN 6 AND THE VALUE 
’WRDCNT’. 

IF PARAMETER = 1, THE WORD 
COUNT WILL BE THE VALUE 
’WRDCNT*. 

CONTROLS THE APPROXIMATE 
RATIO OF READ TO WRITE 
COMMANDS. 


VALUE 

0 

1 

2 

3 

4 

5 

6 
7 


R/W RATIO 
15/1 
7/1 
6/2 
5/3 
4/4 
3/5 
2/6 
1/7 


IF PARAMETER = 1, END OF PASS 
DETERMINED BY THE 'WORDS READ’ 
COUNT. 

IF PARAMETER = 0. END OF PASS 
IS DETERMINED BY THE NUMBER 
OF SEEKS. 

IF EO 1, DO AN APPROPRIATE 
WRITE CHECK AFTER EACH WRITE 
COMMAND. IF EQ 0, SELECT WRITE 
CHECK COMMAND RANDOMLY. 

IF PARAMETER =1, DO NOT PRINT 
ERROR MESSAGES FOR DATA ERRORS 
OCCURING AT LOCATIONS DEFINED 
BY THE OPERATOR AS BAD DISK 
LOCATION. 

IF PARAMETER = 0, PRINT ERROR 
MESSAGES ASSOCIATED WITH BAD 
DISK LOCATIONS. 

IF PARAMETERS, RANDOM 
DATA BLOCK ADDRESS IS 
USED IN 'T* COMMAND 
IF PARAMETER*!. SEQUENTIAL 
DATA BLOCK IS USED IN 
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SEO OOH 


571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 
59*. 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 
627 


•T' COWAND. 

BADBLK 8 000000 0 OR 1 IF EQ TO 1, THE BAD SECTOR 

ENTRY TABLE WILL ALWAYS BE 
INITIALIZED WHEN ASSIGNING 
A DRIVE; 

IF EO TO 0, THE BAD SECTOR 
ENTRY TABLE WILL ONLY BE 
INITIALIZED IF THE HDA SERIAL 
NUMBER HAS CHANGED SINCE THE 
LAST TIME IT WAS READ. 

NOTE: IF THE HDA SERIAL NUMBER 
HAS CHANGED, THIS MOST LIKELY 
MEANS THAT THE HDA OR DRIVE 
HAD BEEN REPLACED WHILE THE 
DRIVE WAS DEASSIGNED. 


4.1.2 CHANGE DEVICE ADDRESSES 

T ME RM/RH ADDRESS AND VECTOR MAY BE CHANGED WHEN THE PROGRAM IS 
STARTED AT ADDRESS 204 OR IF THE PROGRAM DOES NOT RECEIVE A 
RESPONSE WHEN IT ACCESSES THE DEFAULT RM/RH ADDRESS. 

(DEFAULT ADDRESS = 176700. VECTOR = 254) 

ADDRESS SELECTION EXAMPLES 

EXAMPLE 1 

RMC$1*1 76700 <CR> ;N0 CHANGE IN ADDRESS 

RMVEC-000254 <CR> ;N0 CHANGE IN ADDRESS 

EXAMPLE 2 

RMCS1 -176700 177200<CR> .CHANGE BASE ADDRESS TO 177200 
RMVEC*000254 260<CR> .CHANGE VECTOR ADDRESS TO 260 


4.2 KEYBOARD COMMANDS 

THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN DRIVES 
FOR TEST CT* COMMAND). WRITE SEQUENTIAL DATA CW' COMMAND), 
PERFORM A SEQUENTIAL RiAD CR* COWAND). PERFORM WRITE DATA AND 
FOLLOWED BY TEST CWT* COMMAND >. REQUEST A DRIVE PERFORMANCE 
SUMMARY CS’ COMMAND), OR DEASSI&N A DRIVE CD' COMMAND). 

THE 'T', 'W', 'R' AND 'WT* COMMANDS ARE EXCLUSIVE TO ONE ANOTHER 
ON THE SAME 6RIVE UNDER TEST. THE 'D' COWAND MUST BE ENTERED IN 
ORDER TO ISSUE A DIFFERENT COMMAND TO THE SAME DRIVE UNDER TEST. 
EXCEPT FOR THE 'S' COMMAND, WHICH CAN BE ENTERED AT ANY TIME 
DURING THE TEST. 


IF THE PROGRAM WAS STARTED AT ADDRESS 204 OR IF NO DRIVES ARE 
ASSIGNED FOR TESTING. THE FOLLOWING MESSAGE WILL BE TYPE BEFORE 
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628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
6 32 

683 

684 


ENTERING THE COMMAND NODE. HOWEVER, IF A ’CONTROL C' IS TYPED 
WHILE TESTING IS IN PROGRESS, THE FOLLOWING NESSAGE WILL BE 
ONITTED AND THE PROGRAN WILL ENTER CONNAND NODE. 

'NO DRIVES ASSIGNED' 

WHEN THE PROGRAN ENTERS THE COWHAND NODE. THE FOLLOWING PROMPT 
WILL BE TYPED: 

•HH:NM:SS 
ENTER COWHANDS:' 

THE PROGRAM WILL THEN ACCEPT ANY OF THE VALID COWHANDS. AT THE 
COMPLETION OF A COWHAND, THE PROGRAM WILL EXIT COHHANO NODE AND 
TRY TO ASSIGN THE DRIVE(S) THAT WERE REGJESTED. IF THE DRIVF(S) 
CANNOT BE ASSIGNED, ONE O r THE FOLLOWING ERROR MESSAGES WILL BE 
REPORTED AND THE PROCESS CONTINUES FOR EACH DRIVE. 

RESPONSE CONHAND(S) 


7DRIVE N LOAD DEVICE 
7DRIVE N OFFLINE 
7DRIVE N NOT ASSIGNED 
7DRIVE N ALREADY ASSIGNED 
’DRIVE N NOT PRESENT 
7DRIVE N UNSAFE 
7DRIVE N NOT AN RH60 


T, W, R, WT 
T, W. R, WT 
D. S 

T, W, R, WT 
T, W. R. WT 
T. W, R. WT 
T, W. R, WT 


NEXT, THE PROGRAN WILL PROCESS ALL THE ASSIGNED DRIVES AS FOLLOWS: 

WHEN THE PROGRAN IS ASSIGNING THE DRIVES, THE OPERATOR WILL BE ASKED 
TO CHANGE THE DRIVE PARAMETERS WITH THE FOLLOWING PROMPT: 

'CHANGE DRIVE PARAMETERS <L) N ?' 

IF THE ENTRY IS A 'N* FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE 
RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY DRIVE PARAMETERS TO 
BE CHANGED AND wiLL PROCEED TO TEST THE DRIVES AS COMMANDED. 

IF THE ENTRY IS A *Y* FOLLOWED BY CARRIAGE RETURN. THE OPERATOR WILL 
BE ALLOWED TO CHANGE THE DRIVE PARAMETERS AS FOLLOWS. 


THE PROGRAM WILL FIRST 
REFERENCED FOR CHANGES. 


TELL THE OPERATOR WHICH DRIVE IS BEING 


DRIVE # N' 


THEN INFORM THE OPERATOR WHAT THE HARD WIRED NBA 
AND 1HE HDA SERIAL NUMBER IS IN THE FOLLOWING 


THE PROGRAM WILL 
SERIAL NUMBER IS 
FORMAT: 

•MBA S/N: X HDA S/N: Y' 

WHERE 'X' IS THE HARD WIRED DECIMAL SERIAL NlflBER CONTAINED IN THE 
RMSN REGISTER OF THE MBA. IF THE NBA SERIAL NUMBER IS NOT JUMPERED 
IN THE RMSN REGISTER, 'X' WI'L APPEAR AS '????'. 
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WHERE 'Y' IS THE DECIMAL SERIAL NUMBER READ FROM THE DECK4 BAD 
ECTOR FILE ON THE HDA. IF THE DEC 1 44 FILE WAS UNABLE TO BE READ 
jUCCESSFULLY. WILL APPEAR AS 'NONE'. 

THE PROGRAM WILL THEN ASK FOR ADDRESS LIMIT CHANGES WITH THE 
FOLLOWING TYPEOUT: 

'ENTER ADDRESS LIMITS:' 

THE PROGRAM WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 
PARAMETERS. 

THE FOLLOWING TABLE VALUES ARE USED WHEN THE PROGRAM IS EXERCISING 
THE USER PORTION OF THE DISK. 


701 


DEFAULT 

VALUE 


702 

703 

704 

NAME 

VALUE 

RANGE 

FUNCTION 

MINCYL 

0 

0 - 558. 

THE MINIMUM CYLINDER ADDRESS 

705 

MAXCYL 

558. 

0 - 558. 

THE MAXIMUM CYLINDER ADDRESS 

706 

MINTRK 

0 

0 - 13. 

THE MINIMUM TRACK ADDRESS 

707 

MAXTRK 

13. 

0 - 13. 

THE MAXIMUM TRACK ADDRESS 

708 

MINSEC 

0 

0 - 30. 

THE MINIMUM SECTOR ADDRESS 

709 

MAXSEC 

30. 

0 - 30. 

THE MAXIMUM SECTOR ADDRESS 


WHEN OPERATING WITH CYLINDER 558. AS THE MAXIMUM CYLINDER, THE TRACK 
ADDRESS MAY BE SELECTABLE FROM 0-13.. IF YOU REMEMBER. CYLINDER 
558. TRACK 13. IS THE DEC 144 TRACK. DURING THE TEST. IF THE PROGRAM 
TRIES TO ACCESS CYLINDER 558. TRACK 13.. THE PROGRAM AUTOMATICALLY 
SELECTS THE NEXT USABLE TRACK ADDRESS. THIS ALLOWS ALL THE REST OF 
THE CYLINDERS. TRACK 0 AND 13. TO BE ADDRESSED BY THE OPERATOR. 


THE FOLLOWING TABLE VALUES ARE USED WHEN THE PROGRAM IS EXERCISING 
ON THE *FE‘ CYLINDERS ONLY. 


DEFAULT VALUE 
VALUE RANGE 


FUNCTION 


MINCYL 

559. 

559. 

- 560. 

THE MINIMUM CYLINDER ADDRESS 

MAXCYL 

560. 

559. 

- 560. 

THE MAXIMUM CYLINDER ADDRESS 

MINTRK 

0 

0 - 

13. 

THE MINIMUM TRACK ADDRESS 

MAXTRK 

13. 

0 - 

13. 

THE MAXIMUM TRACK ADDRESS 

MINSEC 

0 

0 - 

30. 

THE MINIMUM SECTOR ADDRESS 

MAXSEC 

30. 

0 - 

30. 

THE MAXIMUM SECTOR ADDRESS 


WHEN OPERATING ON THE FE CYLINDERS ONLY, THE TRACK ADDRESS HAY BE 
SELECTABLE FROM 0 - 13. . IF YOU REMEMBER. CYLINDER 559. TRACK 0 IS 
THE SKIP SECTOR FILE AND CYLINDER 559. TRACK 1 IS USED FOR THE 
ALTERNATE DEC144 TRACK. DURING THE TEST, IF THE PROGRAM TRIES TO 
ACCESS CYLINDER 559. TRACK 0 OR 1, THE PROGRAM AUTOMATICALLY SELECTS 
THE NEXT USABLE TRACK ADDRESS. THIS ALLOWS CYLINDER 560. TRACK 0 AND 
1 TO BE ADDRESSED BY THE OPERATOR. 


THE PROGRAM WILL THEN ASK FOR BAD SECTOR ADDRESSES WITH THE FOLLOWING 
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742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 


TYPEOUT: 


’ENTER BAD SECTR ADRS:' 

THE FORMATS USED TO ENTER BAD SECTOR ADDRESS LOCATIONS ARE AS 
FOLLOWS: 

EXAMPLE 1: CYL.TRK.SEC* C,T,S<CR> 

A. THE PROGRAM WILL INHIBIT DATA ERROR MESSAGES FOR ERRORS 

OCCURRING AT THE SPECIFIED ADDRESS. 

B. LEADING ZEROS ARE NOT REQUIRED. 

EXAMPLE 2: CYL.TRK.SEC* C,T<CR> 

A. WHEN THIS FORMAT IS USED, THE ENURE TRACK WILL BE 
CONSIDERED BAD. 

8. DATA ERRORS WILL BE HANDLED AS IN 'EXAMPLE 1'. 

EXAMPLE 3: CYL,TRK,SEC= C<CR> 

A. WHEN THIS FORMAT IS USED. THE ENTIRE CYLINDER WILL BE 
CONSIDERED BAD 

8. DATA ERRORS WILL BE HANDLED AS IN 'EXAMPLE 1*. 

IF CONTROL C <*C) IS TYPED AS AN ENTP", ALL CURRENT BAD SECTOR ENTRIES 
WILL BE LOST AND THE FOLLOWING MESSAGE WILL BE TYPED. 

'* ALL CURRENT ENTRIES LOST 

AFTER TYPING THE PREVIOUS MESSAGE. THE PR06RAM WILL WAIT FOR THE 
OPERATOR TO ENTER ANOTHER BAD SECTOR AS IN THE PREVIOUS EXAMPLES. 

IF *L* IS TYPED FOR AN INPUT CHARACTER. THE PROGRAM WILL TYPE A LIST 
OF DEC144 BAD SECTORS, AND THE MANUALLY ENTERED BAD SECTORS, WHICH ARE 
STORED IN THE DRIVE PARAMETER TABLE (DPB) FOR THAT PARTICULAR DRIVE. 

IF THERE ARE NO BAD SECTORS IN THE DPB TABLE, THE FOLLOWING MESSAGE 
WILL BE TYPED: 

•DEC144 AND MANUAL BAD SECTOR LIST 
* NO ENTRIES * 7 

HOWEVER, IF THERE ARE ENTRIES IN DP8 TABLE. r HE LIST WILL BE TYPED 
IN T'lE FOLLOWING FORMAT: 

•DEC144 AND MANUAL BAD SECTOR LIST 
8.8.3 
l6.f3 
25& 

500.1.29* 


THE ABOVE LIST OF BAD SECTORS, 
TRACK 8., SECTOR 3 IS THE BAD 


ENTRY 1 INDICATES THAT CYLINDER 8., 
SECTOR. ENTRY 2 INDICATES THAT ON 


i 
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>99 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

83 8 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 


4.2.1 


CYLINDER 16.. TRACK 13.. ALL THE SECTORS ARE BAD (ENTIRE TRACK IS 
BAD). ENTRY 3 INDICATES THAT ON CYLINDER 256., ALL TRACKS AMD SECTORS 
ARE BAD (ENTIRE CYLINDER IS BAD). ENTRY 4 INDICATES THAT CYLINDER 
500.. TRACK 1, SECTOR 29. IS THE BAD SECTOR. 

AFTER TYPING EITHER OF THE TWO PREVIOUS MESSAGES, THE PROGRAM WILL 
RETURN TO WAIT FOR MORE ENTRIES TO BE MADE INTO THE BAD SECTOR TABLE, 

AS IN FXAMPLES 1, 2 AND 3. 

TO TERMINATE THE BAD SECTOR ADDRESS ENTRY, YPE A ’CARRIAGE RETURN’ 

IN RESPONSE TO THE ENTRY REQUEST OR TERMINATE THE ENTRY WITH A ’PERIOD* 
FOLLOWED BY A 'CARRIAGE RETURN*. 

•T* COMMAND 

USED TO ASSIGN A DRIVE (S) FOR A TEST. THIS COMMAND IS REQUIRED 
TO PERFORM THE TEST OF THE DRIVE (S). 

FORMAT: TN<CR> 

N = DRIVE NUMBER. MAY BE 0 TO 7 OR ’A’. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 

EXAMPLE: TO<CR> - ASSIGN DRIVE 0 FOR TEST 

TA<CR> - ASSIGN ALL AVAILABLE DRIVES FOR TEST 

4.2.2 ’D’ COMMAND 

USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. 

FORMAT: DN<CR> 

N - DRIVE NUMBER. MAY BE 0 TO 7 OR 'A'. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 

EXAMPLE: DO<CR> - DEASSIGN DRIVE 0 

OA<CR> - DEASSIGN ALL DRIVES BEIN6 TESTED. 


4.2.3 ‘S’ COMMAND 


USED TO REQUEST A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED 
DRIVE ($>. AFTER THE ’S’ COMMAND HAS BEEN PERFORMED. THE PROGRAM 
WILL AUTOMATICALLY RESUME TESTING THE DRIVE (S) WHICH WERE UNDER TEST. 

FORMAT: SN< CR> 

N * DRIVE NUMBER. MAY BE 0 TO 7 OR ’A*. ENTRY MUST BE 
TERMINATED BY A CARRIA6E RETURN <CR>. 

EXAMPLE: SO<CR> - TYPEOUT PERFORMANCE SlflMARY FOR DRIVE 0_ 

$A<CR> - TYPEOUT PERFORMANCE SUMMARY FOR ALL DRIVES 
BEING TESTED. 


4.2.4 'W' COMMAND 

USED TO PERFORM A SEQUENTIAL WRITE OF THE DISK, WITH DATA ACCEPTABLE 
TO THE PERFORMANCE EXERCISER PROGRAM. 
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FORMAT: WN<CR> 

N = DRIVE NUMBER. MAY BE 0 TO 7 OR 'A'. ENTRY MUST BE 
TERMINATED BY A CARR1A6E RETURN <CR>. 

EXAMPLE: WO<CR> - WRITE A DATA PATTERN ON DRIVE 0. 

WA<CR> - WRITE A DATA PATTERN ON ALL AVAILABLE DRIVES. 

4.2.5 ’R’ COMMAND 

USED TO PERFORM A SEQUENTIAL READ OF THE DISK. 

FORMAT : RN<CR> 

N = DRIVE NUMBER. MAY BE 0 TO 7 OR 'A* . ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 

EXAMPLE: RO<CR> - READ THE DATA ON DRIVE 0. 

RA<CR> - READ THE DATA ON ALL AVAILABLE DRIVES. 

4.2.6 *WT' COMMAND 

USED TO PERFORM A SEQUENTIAL WRITE DATA. FOLLOWED BY A T COMMAND. 
FORMAT: WTN<CR> 

N * DRIVE NUMBER 0 TO 7 OR "A". ENTRY MUST BE TERMINATED BY A 
CARRIAGE RETURN <CR>. 

EXAMPLE: WTO<CR> - WRITE A DATA PATTERN AND TEST DRIVE 0 

WTA<CR> - WRITE A DATA PATTERN AND TEST ALL DRIVES 


5. PERFORMANCE SUMMARY TYPE OUT 


5.1 


THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES 
BEING EXERCISED. THIS SUMMARY WILL BE DISPLAYED AUTOMATICALLY 
IF THE PARAMETER 'INTRVL* IS NOT ZERO AND SW<02>=0, OR IF THE 
DRIVE HAS REACHED THE DEFINED NUMBER OF PASSES AND SW<08>=0, 

OR IF THE OPERATOR REQUESTS TO DO SO BY USE OF THE 'S* COMMAND. 

THE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 


•TIME* 

8 DRIVE* 
•PASS* 

•MBA S/N' 
*HDA S/N* 

*WT OFLOW 
*fcM>S WRITN’ 
•RD OFLOW' 
•WRDS READ* 
•SEEKS’ 
•SOFT' 


ELAPSED TIME OF PROGRAM 

DRIVE NUMBER - DRIVE TYPE 

PRESENT PASS COUNT FOR THE DRIVE 

HARD WIRED MASS8US ADAPTER SERIAL NUMBER(RMSN) 

SERIAL NUMBER READ FROM THE DEC144 FILE 

NUMBER OF TIMES *WRDS WRITN* HAS OVERFLOWED 

TOTAL NUMBER OF WORDS WRITTEN BY THE DRIVE 

NUMBER OF TIMES *WRDS READ* HAS OVERFLOWED 

TOTAL NUMBER OF WORDS READ BY THE DRIVE 

NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED 

NUMBER OF SOFT DATA ERRORS 
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•HARD' 

•SKI’ 

'WISP' 

•OTHER’ 


NUMBER OF HARD DATA ERRORS 
NUMBER OF ’SKI* ERRORS 

NUMBER OF PROGRAM DETECTED POSITIONING ERRORS 
TOTAL ERRORS OF OTHER TYPES 


ALL DATA TRANSFER COUNTS. SEEK COUNTS AND ERROR COUNTS ARE ACCUMULATIVE 
AND WILL NOT BE CLEARED AFTER EACH PASS. 


TO CALCULATE THE TOTAL NUMBER WORDS READ OR WRITTEN. TAKE THE OVERFLOW 
COUNT (RD OFLOW OR WT OFLOW). MULTIPLY IT BY 2,147,483.647. , THEN ADD 
THAT NUMBER TO THE WORDS READ OR WRITTEN (WRDS READ OR WRDS WRJTN). 


NOTE: ERRORS EMI, EM2, ft EH5 ARE NOT INCLUDED IN THE ’OTHER’ ERROR 
TOTAL. 

SOFT/HARD ERROR DEFINITIONS 


5.2.1 HARD ERRORS 


A. A ’DTE' (DRIVE TIMING ERROR) OR A 'DCK' (DATA CHECK ERROR) 

WHICH OCCURS DURING A READ DATA OR A READ HEADER ft DATA OPERATION 
AND IS NOT CORRECTABLE OR DOES NOT BECOME CORRECTABLE AFTER THE 
PROGRAM HAS PERFORMED THE COMPLETE RETRY SEQUENCE ON THE BAD 
SECTOR. 

THE RETRY SEQUENCE IS 16. RE-READS. 


5.2.2 SOFT ERRORS 


ECC CORRECTABLE ’DCK’ ERRORS. . „ 

’DCK* ft ’ECH’ ERRORS WHICH BECOME ECC CORRECTABLE DURING 
RETRY OR WHICH ARE READ CORRECTLY DURING RETRY. 

HEADER READ ERRORS - READ DATA, READ HEADER 8 DATA. OR 

M>TE* ERRORS°WHICH S ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 
’DCK’ ERROR DURING THE RETRY SEQUENCE. 


DATA CHECKING ft ERROR RECOVERY 


DATA COMPARISON 

DATA COMPARISON OCCURS AFTER EACH *RDDAT* (READ DATA) OR ’RDHD’ 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 

A. THE COMMAND TERMINATED WITH NO ERRORS AND SW<01>*0 

B. THE OPERATION TERMINATED WITH ’DCK' SET AND THE ERROR IS ECC 
CORRECTABLE OR THE SECTOR IN ERROR IS READ CORRECTLY AFTER 
RETRY ATTEMPTS. 

VERIFICATION OF DATA WRITTEN 

DATA VERIFICATION IS DONE EITHER THROUGH READING THE DATA BACK 
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SEO 00? 1 


970 

971 

972 

973 

974 

975 
°76 

977 

978 

979 

980 

981 

982 

983 

984 
Q*5 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 


AND MATCHING THE DATA WITH ONE OF THE 15. PATTERNS OR THROUGH 
ISSUING A UNITE CHECK COMMAND AFTER DOING A WRITE DATA COMMAND. 

BAD ADDRESS FLAGGING 

WHEN A DRIVE IS ASSIGNED TO BE TESTED, THE PROGRAM READS THE BAD 
SECTOR FILE (DEC144) FROM THE DISK AND THEN ALLOWS ADDITIONAL BAD 
SECTORS TO BE ENTERED MANUALLY. 

A MAXIMUM OF 2 52. BAD SECTORS ARE ALLOWED FOR EACH DRIVE. BOTH 
READING FROM THE DEC144 FILE AND ENTERING FROM KEYBOARD. 

THE MANUALLY ENTERED BAD SECTORS ARE NOT RECORDED TO THE BAD SECTOR 
FILE OF THE DISK CURRENT UNDER TESTING. 

IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED BY 
THE BAD SECTOR TABLE, THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR 
THAT ERROR. 

DATA CHECK ERRORS CDCK') 

WRITE CHECK ERRORS ('WCE') 

OPERATION INCOMPLETE ERRORS ('OPD 
DRIVE TIMING ERRORS ('DTE') 

HEADER READ ERRORS CFER W/ HCRC'. 'HCE W/ HCRC' OR 'HCRC') 


ERROR MESSAGES 


ERRORS ARE REPORTED ON THE TTY CONSOLE. THE PR06RAM CONTAINS 
NO CODED ERROR HALTS. IF THE PROGRAM HALTS (ASSUMING, OF COURSE, 
THAT SW<15> IS NOT SET), AN UNRECOVERABLE PROGRAM CONDITION HAS 
OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS OCCURRED. 

ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. EACH TYPE OF ERROR 
HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT. ALL OF THE 
POSSIBLE ERROR MESSAGE LINES WHICH MAY APPEAR ARE GIVEN IN THE 
SECTION DESCRIBING THE PARTICULAR ERROR HEADER. 

ERROR DESCRIPTION LINES 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) 

MESSA6E 

TAG TEXT 

EMI RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 

THE RH CONTROLLER INTERRUPTED AND THE ATTENTION SUMMARY 
REGISTER (RMAS) WAS CLEARED. 


UNEXPECTED ATTENTION OCCURRED 

THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS NOT 
PERFORMING AN OPERATION. 


J 2 


SEQ 0022 
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1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 
1083 


NOT USED 
NOT USED 

ADDRESS PLUG CHANGE BIT SET 

THE 'OPE' BIT UAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 

NOT USED 
NOT USED 
NOT USED 
NOT USED 

OPERATION NOT COMPLETED WITHIN TIME LIMiT 

THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 10. SECONDS 
AFTER THE OPERATION WAS INITIATED. 

DRIVE WENT OFFLINE 

THE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION. 

(THE ’MOL' BIT BECAME ZERO.) THE PROGRAM WILL AUTOMATICALLY 
DEASSIGN THE DRIVE. THE OPERATOR MUST REASSIGN THE DRIVE 
WITH THE *T* COMMAND TO RE-INITIATE TESTING. 

NO RESPONSE TO PORT REQUEST 

THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SWITCHED 
TO THE REQUESTING PORT WITHIN 15. SECONDS AFTER PORT REOUEST 
TO THE DRIVE FROM THE REPORTING PORT. 

HEADER CRC ERROR 

A HEADER CRC ERROR UAS DETECTED AT THE INDICATED DISK ADDRESS. 
THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

DATA CHECK CDCK’) ERROR 

A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SECTOR. 

THE FULL RETRY SEQUENCE WILL BE INITIATED 

FOR THE SECTOR IN ERROR IF THE ECC HARD ERROR CECH) BIT 
IS SET. 

WRITE CHECK ERROR - DATA CHECK ('DCK') SET 

A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK CDCK*) BIT 
WAS SET. IF 'ECH* IS NOT SET, THE OPERATION WILL BE RETRIED 
UP TO 3 TIMES; IF THE 'ECH' BIT IS SET, THE OPERATION WILL 
BE RETRIED UP TO 16. TIMES. 

WRITE CHECK ERROR - DATA CHECK CDCK') NOT SET 

A WRITE CHECK ERROR OCCURRED AND ’DCK' WAS NOT SET. THE 
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SEO 0023 


1084 


1085 


1086 

EM24 

1087 

1088 


1089 


1090 


1091 


1092 


1093 


1094 

EM25 

1095 

1096 


1097 


1098 


1099 

EM26 

1100 

1101 


1102 


1103 


1104 


1105 

EM27 

1106 

1107 


1108 


1109 


1110 

EM30 

1111 

1112 


1113 


1114 


1115 

EH31 

1116 

1117 


1118 


1119 


1120 

EM32 

1121 

1122 


1123 


1124 


1125 

EM33 

1126 

1127 


1128 


1129 


1130 

EM34 

1131 

1132 


1133 


1134 


1135 

EM35 

1136 

1137 


1138 


1139 

EM36 

1140 


WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THfc ERROR 
MESSAGE. THE OPERATION WILL BE RETRIED 3 TIMES. 

HEADER READ ERROR - 'FMT* BIT DROPPED 

A WRITE DATA. WRITE CHECK DATA, OR A READ DATA WAS BEING 
PERFORMED AND A 'FMT' ERROR OCCURRED. THE PROGRAM RE-READ THE 
HEADER OF THE ERROR SECTOR AND THE 'HCRC' BIT WAS SET. THE 
CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

HEADER READ ERROR - HEADER COMPARE ('HCE') ERROR 

SIMILAR TO EM24. EXCEPT THAT THE 'HCE' ERROR BIT WAS 
SET INITIALLY, THE OPERATION WILL BE RETRIED 3 TIMES. 

FORMAT ERROR CFER') 

FORMAT ERROR OCCURRED. WHEN THE HEADER WAS RE-READ, THE 
'HCRC' BIT WAS NOT SET. THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES. 

HEADER COMPARE ('HCE') ERROR 

SIMILAR TO EM26 EXCEPT THAT THE *HCE* BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 

MISCELLANEOUS DRIVE ERROR 

THIS MESSAGE IS GIVEN FOR THE FOLLOWING ERROR BITS: 

*AOE\ *RMR\ 'ILF*. OR 'ILR* 

OPERATION INCOMPLETE (*QPD ERROR 

AN OPERATION INCOMPLETE ERROR OCCURRED AT THE INDICATED 
SECTOR. 

DRIVE TIMING ('DTE') ERROR 

DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 

PARITY (’PAR*) ERROR AFTER OPERATION STARTED 

THE 'PAR* BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 3 TIMES. 

WRITE CLOCK FAILURE CWCF') 

A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION. THE 
OPERATION WILL BE RETRIED 3 TIMES. 

INVALID ADDRESS CIAE 1 ) ERROR 

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 

WRITE LOCK CWLE’) ERROR 
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SEO 002 <- 


A WRITE OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 
LOCKED. 

RH CONTROLLER OR UNIBUS TRANSFER ERROR 

'TRE' IS SET IN THE RH CONTROL REGISTER AND NO DRIVE 
ERROR HAS OCCURRED. THE OPERATION WILL BE RETRIED 3 
TIMES IF THE ERROR WAS CAUSED BY 'DLT\ 'UPE', 'MXF ' , 

OR *MDPE ' . 

BUS ADDRESS OR WORD COUNT INCORRECT 

NO DRIVE ERROR OCCURRED BUT EITHER THE BUS ADDRESS INDICATES 
THAT AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE 
WORD COUNT REGISTER IS NOT ZERO. 

DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED 

NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE. 

CAN'T MATCH DATA READ WITH A PATTERN - UNDEFINED DATA PATTERN 

THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
PATTERNS. 

ERROR BIT(S) SET. 8UT NO ERROR SIGNALED BY THE RH CONTROLLER 

THE OPERATION COMPLETED NORMALLY; HOWEVER, THE PROGRAM 
FOUND EITHER ERROR BITS IN THE RM SET OR ERROR BITS IN 
THE RH CONTROLLER SET. 

ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID 

DURING 'DCK' ERROR PROCESSING, THE CONTENTS OF THE ECC 
POSITION REGISTER (RMEC1) WAS NOT VALID. THE POSITION 
REGISTER WAS EITHER 0 OR GREATER THAN 010040. 

BUS ADDRESS OR WORD COUNT NOT CONSISTENT 

THE PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE 
NUMBER OF WORDS TRANSFERED AS INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOr AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 

ECC LOGIC FAILURE - PATTERN REGISTER IS ZERO 

DURING 'DCK' ERROR PROCESSING. THE CONTENTS OF ECC PATTERN 
REGISTER (RMEC2) WAS NOT VALID. THE PATTERN REGISTER CONTAINED 
ALL ZEROS. 

SEEK INCOMPLETE ERROR 

THE DRIVE SIGNALED EITHER 'SKI' ERROR. 

NOT USED 
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SEQ 0025 


1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 


EK52 ECH ERROR - UNCORRECTABLE ECC ERROR 

DURING ’OCX' ERROR PROCESSING, THE 'ECH* BIT WAS SET IN 
RMER1, WHICH INDICATES THAT DATA CHECK CANNOT BE ECC 
CORRECTED. 

EM60 DEVICE UNSAFE 

THE INDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
CLEARED BY A 'DRIVE CLEAR' INSTRUCTION. 

7.2 DETAIL ERROR LINES 

THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 

LINE 1 


HH:MN:SS 

'HH:MM:SS' IS THE TIME SINCE THE PROGRAM WAS STARTED. 
(HOURS, MINUTES, SECONDS) 

LINE 2 


•PRSNT COMMAND* XXXX PREV COMMAND* YYYY' 

MNEMONICS USED FOR THE COMMANDS ARE DEFINED BELOW: 

SEEK - SEEK (OCTAL 5) 

RECAL - RECALIBRATE (OCTAL 7) 

DRVCLR - DRIVE CLEAR (OCTAL 11) 

RELSE - RELEASE (OCTAL 13) 

OFFSET - OFFSET (OCTAL 15) 

RTC - RETURN TO CENTERLINE (OCTAL 17) 

READIN - READIN PRESET (OCTAL 21) 

PACK - PACK ACKNOWLEDGE (OCTAL 23) 

SEARCH - SEARCH (OCTAL 31) 

•GETREG - GET REGISTERS (OCTAL 41) 

*SETFMT - SET FORMAT (ECI OR HCI) (OCTAL 43) 

♦SELDRV - SELECT DRIVE (OCTAL 45) 

WCKD - WRITE CHECK DATA (OCTAL 51) 

WCKHD - WRITE CHECK HEADER t DATA (OCTAL 53) 

WRTDAT - WRITE DATA (OCTAL 61) 

WRTHD - WRITE CHECK HEADER t DATA (OCTAL 63) 

RDDAT - READ DATA (OCTAL 71) 

RDHD - READ HEADER t DATA (OCTAL 73) 

* SPECIAL RM DRIVER COMMAND (NOT A CONTROLLER COMMAND) 

(DISPLAY OF THE RH/RM REGISTERS IN TWO GROUPS: „ r rtf4C , 

RMCS1 , RMCS2, RMDS, RMER1, RMER2, JWC1 AND RMEC2 FORM THE FIRST 
GROUP; ALL THE OTHER REGISTERS ARE IN THE SECOND GROUP. _ 
IF SW<05> IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 
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SEQ 002- 


1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 


DISPLAYED.) 

THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING 
THE NON-DATA TRANSFER PART OF THE OPERATION. 

'* ERROR AT BAD TRACK/SECTOR' 

THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS 
ON THE DISK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. PARAMETER 
'NOTPRT* MUST BE 0 FOR THE ERROR TO BE REPORTED. 

A WORD CALLED 'STATUS' IS DISPLAYED WITH THE RM REGISTERS. THE 
CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE 
RM DRIVE HANDLER ROUTINE. (SEE SECTION 9.7) 

LINE 3 

ERROR AT CXXX TYY SZZ PREV ADDR* CUUU TVV SWW 

THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 
DISK ADDRESS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, l 
SECTOR ADDRESSES ARE IN DECIMAL. 

LINE 4 


PRSNT ADDR* CXXX TYY SZZ PREV ADDR* CUUU TVV SWW 

THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED; 
THE PREVIOUS ADDRESS IS ALSO GIVEN. CYLINDER, TRACK, t SECTOR 
ADDRESSES ARE GIVEN IN DECIMAL. 

LINE 5 

START CYL* XXX END CYL* YYY 

THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK (IMPLIED) 
AND THE DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 
DECIMAL. 

LINE 6 


START CYL* XXX END CYL* YYY ACTUAL CYL* III 

THIS LINE IDENTIFIES THE STARTING CYLINDER OF AN IMPLIED SEEK, 
THE DESTINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY 
STOPPED AT. CYLINDER ADDRESSES ARE IN DECIMAL. 

LINE 7 


RMBA= XXXX RMWC* YYYY 
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SEQ 0027 


1312 

1313 
13K 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 
13*8 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 


THIS LINE GIVES THE CONTENTS OF THE RH CONTROLLER BUFFER ADDRESS 
REGISTER AND THE RH CONTROLLER WORD COUNT REGISTER. THIS LINE IS 
NOT PRINTED IF SW<05> IS NOT SET. 

LINE 8 


START CYL= XXX START TRK= YY START SECTOR* 21 

THIS LINE IDENTIFIES THE STARTING DISK ADDRESS OF THE PRESENT 
OPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 

LINE 9 


RMDA* XXXX RNCA= YYYY 

THIS LINE GIVES THE CONTENTS OF THE RM TRACK AND SECTOR 
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER 
ADDRESS REGISTER. THIS LINE IS NOT PRINTED IF SW<05> IS NOT 
SET. 

LINE 10 


BUFFER ADDR* XXXX WRD CNT* YYYY ACTUAL NLPBR WRDS XFRD= 2222 

THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR THE 
CURRENT DATA TRANSFER OPERATION, ITS SIZE (WORD COUNT), AND THE 
ACTUAL NUMBER OF WORD TRANSFERED. THE STARTING ADDRESS OF THE 
BUFFER IS IN OCTAL, THE WORD COUNT AND WORDS TRANSFERED VALUE 
ARE IN DECIMAL. 

LINE 11 


EXPCTD DATA* XXXX RECEVD DATA= YYYY WORD POS* ZZZ 


THIS LINE GIVES THE EXPECTED DATA, THE RECIEVtD 
AND THE LOCATION OF THE WORD IN THE SECTOR. THE 
DECIMAL. 


DATA FROM THE DISK. 
WORD POSITION IS IN 


LINE 1? 


HEADER CONTENTS OF ERROR SECTOR* XXXX XXXX XXXX XXXX 

THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 
GAVE THE ERROR. 

LINE 13 


RMEC1* XXXX RMEC2* YYYY 

THIS LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF A SECTOR 
WHICH BECAME ECC CORRECTABLE DURING RETRY. 
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SEO 0028 


1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 


C 3 


LINE 14 

ECC CORRECTABLE 

THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 
NECESSARY. 

LINE 15 

READ CORRECTLY 

THF SECTOR IN ERROR WAS READ WITHOUT ERROR. 

LINE 16 

ECC CORRECTABLE 

THE SECTOR IN ERROR BECAME ECC CORRECTABLE 
LINE 17 

CORRECTED ON X RETRY 

THE OPERATION WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 
ATTEMPT. 

LINE_18 

UNCORRECTABLE AFTER X RETRIES 

THE OPERATION COULD NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS. 

LINEJ9 

DIFFERENT ERROR DURING RETRY 

WHILE THE PROGRAM WAS RETRYING THE ERROR. A DIFFERENT OCCURRED. 
IF THIS LINE IS PRINTED, THE RH/RM REGISTERS WILL ALSO BE 
PRINTED (SEE LINE 2). 

LINE 20 

DATA COMPARISON ERRORS 

A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 

LINE 21 


CZRNAAO RM80 PERF EXER MACRO V04.00 14- JAN-82 15:16:58 PAGE 3-25 


D 3 


SEO 0029 


1426 

1427 

1428 

1429 
<430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 
'.445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 


TOTAL COMPARE ERRORS 2 XXXX 

THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMAL. 

LINE 22 

THE DATA COMPARED OK 

THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 

LINE 23 


ECC CORRECTION RESULTS 

THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED. 
THE ADDRESS IN MEMORY OF THE UORD(S> IN ERROR ARE GIVEN, THE UORD(S) 
BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED. 

LINE 24 


ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 

THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR 'DCK* ERRORS 
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 
RETRY. 'XXX* IS THE WORD OFFSET VALUE FROM 'RMEC1 * AND IS IN 
DECIMAL. 

LINE 25 

ERROR WAS NOT IN THE DATA READ - 
ECC CORRECTION CAN'T BE PERFORMED 

THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 

LINE 26 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 

IF SW<03> IS SET. THE SECTOR WHICH GAVE THE 'DCK', 'DTE' OR. 
'WCF ' ERROR OR 'HARD' DATA CHECK ERROR IS PRINTED. THE 
CONTENTS OF THE SECTOR FOLLOW THIS LINE. 

LINE 27 


TOTAL ERRORS :X WOFL:N WRDS WRITN: VVYY ROFLrN WRDS READ: ZZZZ 

THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
TYPE ERRORS. 
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SEO 0030 


1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 


•ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 
EVFRV ERROR DETECTED, REGARDLESS OF TVPE. 

•WOFL’ NUMBER OF TINES ’WRDS WRITN' HAS OVERFLOWED 

•WRDS WRITN’ IS THE TOTAL NUMBER OF WORDS WRITTEN THE DRIVE. 

'ROFL * NUMBER OF TINES ’WRDS READ’ HAS OVERFLOWED 

•WRDS READ’ IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 

LINE 28 


TOTAL SEEKS: XXX TOTAL POS ERR= YYY TOTAL SKI ERR= 2 

THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 

•TOTAL SEEKS’ IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 
BY THE DRIVE. 

•TOTAL POS ERR* IS THE TOTAL NUMBER OF PROGRAM DETECTED POSITIONING 
ERROR BY THE DRIVE. 

•TOTAL SKI ERR’ IS THE TOTAL NUMBER OF ‘SKI’ ERRORS SIGNALED BY 
THE DRIVE. 


8. PR0GRAMJ1ESCRIPTI0N 

8.1 PROGRAM OPERATION 

WHEN THE PROGRAM IS STARTED, PROVIDING APT TTY ENABLE BIT IS SET 
OR DIAGNOSTIC LOAOED BY OTHER THAN APT SCRIPT MODE. ALL TABLES AND 
PARAMETERS ARE CLEARED OR INITIALIZED. THE PARAMETERS WHICH ARE 
UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VALIDITY AND 
CONSISTENCY. RH CONTROLLER INTERRUPT ENABLE (IE*) IS SET, TTY 
KEYBOARD INTERRUPT ENABLE IS SET, AND THE KW11-L OR KW11-PCL0CK 
IS STARTED. COMMAND ENTRIES WILL NOW BE ACCEPTED BY THE PROGRAM. 

THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES. LOOKING FOR: 

1) DRIVES TO ASSIGN/DEASSIGN 

2) PERFORMANCE SUMMARY TYPEOUT REOUESTS 

3) DRIVES REQUIRING COMMAND INITIATION. BUFFER ASSIGNMENT. 

OR PARAMETER SELECTION. _ „ 

4) DRIVES COMPLETING CURRENT OPERATIONS. 

THE PROGRAM CONTINUES SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND. 

IN THE CASE OF THE PROGRAM AT INITIAL START, THE FIRST ENTRY WILL 
BE MADE BY THE OPERATOR WHEN A DRIVE IS ASSIGNED <’T* COMMANO). 

WHEN A DRIVE IS ASSIGNED. THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THE 
DRIVE IS PRESENT. IS AN RM80. AND IS ONLINE. THE ASSIGNMENT ROUTINE 
" *r£aDIN PRESET* INSTRUCTION. SETS T 


THEN ISSUES A 
A ’RECALIBRATE' 


INSTRUCTION. 


’FMT16', AND ISSUES 
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SEG 0031 


i 


i 


! 


1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1 574 

575 

576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 


PARAMETERS FOR THE OPERATION ARE SELECTED AND A BUFFER IS ASSIGNED. IF 
THE OPERATION IS A WRITE OR WRITE CHECK COMMAND, THE ASSIGNED BUFFER 
WILL BE FILLED WITH THE SELECTED PATTERN. (WRITE CHECK COMMANDS ARE 
ISSUED AFTER EACH WRITE COMMAND. THE WRITE CHECK COMMAND USES THE 
PARAMETERS SELECTED FOR THE PRECEDING WRITE COMMAND.) CONTROL 
IS THEN PASSED TO THE COMMAND INITIATION ROUTINE. 

THE COMMAND INITIATION ROUTINE FIRST LOOKS AT THE CYLINDER ADDRESS OF 
THE REQUESTED OPERATION. IF THE DRIVE MUST SEEK TO ANOTHER CYLINDER TO 
PERFORM THE OPERATION, THE PROGRAM ISSUES A SEARCH INSTRUCTION 
TO THE DRIVE WITH A ’TARGET* SECTOR WHICH IS 5 SECTORS EARLIER 
THAN THE ’TRANSFER’ SECTOR. (THIS ALLOWS THE PROGRAM TO INITIATE 
OPERATIONS ON ANOTHER DRIVE WHILE THE PRESENT DRIVE, OR OTHER 
DRIVES. ARE SEARCHING FOR ’TARGET* SECTORS. ALL SEEKS ISSUED BY 
THE PROGRAM ARE IMPLIED SEEK SEARCH OPERATIONS.) WHEN A SEARCHING 
DRIVE FINDS THE 'TARGET' SECTOR AND INTERRUPTS, THE PROGRAM THEN 
ISSUES THE REQUESTED COMMAND TO THE DRIVE THAT INTERRUPTED. 

WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS 
ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 

IF THE OPERATION HAS BEEN COMPLETED NORMALLY, THE SAVED DRIVE REGISTERS 
ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET; THE RH CONTROLLER 
BUS ADDRESS AND WORD COUNT ADDRESS REGISTERS ARE CHECKED TO VERIFY 
THAT THE CORRECT NUMBER OF WORDS HAVE BEEN TRAMSFERED AND THAT THE 
TWO REGISTERS ARE CONSISTENT WITH EACH OTHER; AND IF THE COMMAND WAS 
A READ COMMAND. THE DATA BUFFER IS COMPARED. WHEN THIS SEOUENCE IS 
COMPLETED, THE DRIVE IS RETURNED TO THE ASSIGNED. INACTIVE LIST. THE 
PROGRAM THEN INITIATES A DATA TRANSFER ON A WAITIN6 DRIVE AND 
RESELECTS AND REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE. 

ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MULTIPLE 
ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED. 

A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 

OPERATION NOT COMPLETED WITHIN TIME LIMIT - EM13 
DRIVE WENT OFFLINE - EM14 

B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 

CORRECTABLE UNSAFE - El 
DRIVE TIMING ERROR - EL 
DATA CHECK ERROR - EM21 
WRITE CHECK WITH OCK SET - EM 22 
HEADER CRC ERRORS - EFCO. 

FORMAT ERRORS - EM24, EM26_ 

HEADER COMPARE ERRORS - EM25. EM 27 
_ L ^ 1 


PROGRAM DETECTED POSITIONING ERROR 
SEEK INCOMPLETE ERROR - EM50 
WRITE CHECK WITHOUT DCK' SET - EM23 
RH CONTROLLER OR UNIBUS TRANSFER ERROR - EM40 
•OPI* ERROR - EM3i 
•PAR' ERROR - EM33 
•WCF' ERROR - EM34 
MAE' ERROR - EM35 
•WLE* ERROR - EM36 
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SEQ 0032 


1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 
165, 
165 


MISCELLANEOUS DRIVE ERROR - EM30 

C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 

BUS ADDRESS OR WORD COUNT INCORRECT - EM41 

DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED - EM42 

CAN'T MATCH DATA READ WITH A PATTERN - EM43 

ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH CONTROLLER - EM44 
ECC LOGIC FAILURE - EM45 

BUS ADLESS OR WORD COUNT NOT CONSISTENT - EM46 

8.2 DUAL PORT OPERATION 

DUAL PORT OPERATION IS NEARLY IDENTICAL TO THE OPERATION DESCRIBED 
IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEQUENCE INITIATION 
AND COMMAND TERMINATION. 

WHEN THE DUAL PORT HANDLER ROUTINE IN THE EXERCISER PROGRAM RECEIVES 
A REQUEST FOR A DRIVE. THE PROGRAM VERIFIES THAT THE DRIVE IS 
ONLINE. THE DRIVE IS SELECTED AND THE RMCS1 REGISTER IS READ TO 
TEST THE ’DVA r ' BIT. IF THE DRIVE IS IN NEUTRAL, THIS WILL SEIZE THE 
DRIVE. IF THE DRIVE IS SEIZED BY THE OTHER PORT, A DRIVE CLEAR COMMAND 
IS ISSUED TO THE DRIVE TO SET 'PORT REQUEST'. THE PROGRAM THEN CHECKS 
'DVA' IN 'RHCS1 ' . IF THE DRIVE IS AVAILABLE AS INDICATED BY THE 'DVA' 
BIT, THE COMMAND SEQUENCE WILL BE INITIATED IN THE NORMAL MANNER (SEE 
SECTION 8.1 ABOVE). IF 'DVA' WAS NOT SET, THE PROGRAM MAKES AN ENTRY 
FOR THE DRIVE IN AN INTERNAL 'PORT REQUEST PENDING* TABLE AND 
STARTS A 15. SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS 
NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 15. SECOND INTERVAL, 
THE PROGRAM REPORTS A 'NO RESPONSE TO PORT REQUEST' ERROR. NORMALLY 
THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTROL 
LOGIC IN THE DRIVE BEIN6 TESTED; HOWEVER. UNDER CERTAIN CONDITIONS 
(E.G. MASS8US PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM 
ON A TTY), THE OTHER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE 
AFTER IT HAD REQUESTED THE DRIVE. THE OPERATOR MUST BE AWARE OF 
WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE PORT 
RELATED ERROR MESSAGES PROPERLY. 

AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
THE REGISTERS AND ISSUE A 'RELEASE' TO THE DRIVE; IF THE OPERATION 
TERMINATED WITH AN ERROR, THE DRIVE WILL NOT BE RELEASED UNTIL 
ERROR PROCESSING HAS BEEN COMPLETED. 

SINGLE PORT DRIVES, DRIVES WHICH ARE IN NEUTRAL BUT NOT BEING 
EXERCISED BY THE Qf^POSITE PORT ARE STILL TREATED AS DUAL PORT 
DRIVES IN THAT A RELEASE COMMAND IS ISSUED AT THE END OF NORMAL 
COMMAND PROCESSING OR AT THE END OF ERROR PROCESSING. A RELEASE 
COMMAND ISSUED U§©ER THESE CONDITIONS HAS NO FUNCTIONAL EFFECT 
ON THE OPERATION OF THE DRIVE. 

8.3 SELECTION OF OPERATION VARIABLES 

A. SECTOR ADDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN 
'MINSEC' AND 'MAXSEC'. TRACK ADDRESS SELECTION IS RANDOM 
BETWEEN THE VALUES IN 'NINTRK' AND 'MAXTRK'. CYLINDER ADDRESS 
SELECTION IS RANDOM BETWEEN 'MINCYL' AND 'MAXCYL'. IF A MINIMUM 
ADDRESS IS GREATER THAN THE CORRESPONDING MAXIMUM ADDRESS. THE 














f 


SEfl 0034 
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1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 


000040 
000100 
000200 
.00400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


177737 

177677 

177577 

177377 

176777 

175777 

173777 

167777 

157777 

137777 

077777 


155555 

13 % 

m 
u m 
m 


175777 066667 


176777 

177377 

177577 

177677 

177737 

177757 

177767 

177773 

177775 

177776 


mi 

mi 

mi 

mi 

mi 

066667 



177777 
177777 
177777 
177777 

177777 000000 
177777 000000 
177777 000000 
177777 OOOOOO 
177777 OOOOOO 
177777 OOOOOO 
177777 OOOOOO 


* WORST CASE PATTERN 
RH/RM DRIVER 


THIS DOCUMENT IS THE USER’S GUIDE FOR THE RH/RM DRIVER. 
TO INITIALIZE THE DRIVER: 


JSR 

RETURN 


PC.RMINIT 


UPON RETURN YOU RUST EXAMINE THE DRVSTA TABLE TO DETERMINE 
THE DRIVES THAT ARE ONLINE FOR TESTING. THE ‘DRVSTA’ TABLE IS 
EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
BE INDICATED AS FOLLOWS: 


DRVSTA 


DRIVE STATE 


ONLINE 

OFFLINE. DRIVE 
IS NOT AN RM80. OR 
NONEXISTENT DRIVE 
UNSAFE 


THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED ’DRVTYPV 
THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 


DRVTVP 


CONDITION 


NONEXISTENT DRIVE 
RM80 

NOT AN RM80 


THE ’RMINIT’ ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 

AFTER THE DRIVER HAS BEEN INITIALIZED. IT IS CALLED USING THE 
FOLLOWING SEQUENCE. 


CALL: 


JSR R0.RM80 
PNTDPB 


.-MAKE THE CALL 
.•ADDRESS OF DPB* 


SEO 0035 
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1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
182? 

1823 

1824 


RETURN1 

RETURN2 


*DP8 (DATA PARAMETER BLOCK) 

PNTDPB: .BYTE 0 
•BYTE 6 
.BYTE 0 
.BYTE 0 
.WORD 0 
.WORD 0 

.BYTE 0 

.BYTE 0 

.WORD 0 
.WORD 0 


RETURN IF OUEUE IS FULL 
RETURN IF REOUEST IS IN 
QUEUE OR THERE IS AN 
ERROR CONDITION 


(0) DRIVE NUMBER 

(1) OFFSET VALUE OR FMT16, ECT, AND HCI 

(2) COMMAND 

(3) PSEL AND A17 AND A16 

(4) WORD COUNT (MUST BE NEC.) 

(6) BUFFER ADDRESS OR 


; REGISTER TABLE POINTER 
.BYTE 0 ; (10) SECTOR ADDRESS OR 

; FIRST REG. INDEX 

.BYTE 0 ; (11) TRACK ADDRESS OR 

;LAST REG. INDEX 

.WORD 0 ; (12) CYLINDER ADDRESS 

.WORD 0 ; (14) ERROR TABLE POINTER 

.'POINTS TO THE FIRST Of TWENTY 
.LOCATIONS Of WHERE THE DRIVER 
.IS TO STORE THE RH/RM 
.REGISTERS ON AN ERROR. IF LEFT 
;7ER0 REGISTERS ARE NOT SAVED. 
.WORD 0 ; (16) STATUS/ERROR INDICATOR 

;8IT15*1*ERR0R OCCURRED 
;8IT07*1-D0NE 

.‘BIT14-6IT09 AND BIT06-BIT03 
.'INDICATE TYPE Of ERROR 

THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 

TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE 'RM TIMER" ROUTINE 
WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 


#16.. -(SP) 
PC.RMTMR 


16. MILLISECONDS BETWEEN 
CLOCK TICKS 

CALL THE TIMER ROUTINE 


IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 
CLOCK AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 


9.4.1 EXAMPLE - WRITE 1000. WORDS 


JSR 

WRTDPB 

BR 

TST 

BEQ 

BMI 


R0.RM80 

1$ 

WRTDPB+16 

2S 

ERR0R1 


WRTDPB: .BYTE 5 
.BYTE 0 


.'CALL THE DRIVER 

;DP8 ADDRESS 

.•WAIT FOR QUEUE IF FULL 

.'WAIT FOR COMMAND TO COMPLETE 

.•ERROR OCCURRED 


.•DRIVE #5 


r 


K 3 
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SEQ 0036 


1 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 
1 


.BYTE 161 
.BYTE 0 
.WORD -1000. 

.WORD WRT8UF 
.BYTE 3 
.BYTE 5 
.WORD 400 
.WORD ERRTB5 
.WORD 0 

ALTERNATE DP8 SETUP 


WRTDP8: .WORD 5 

.WORD WRITE 
.WORD -1000. 

.WORD WRTBUF 

.BYTE 3.5 

.WORD 400.ERRT85.0 

RH/RM REGISTERS 

MNEMONIC 

RMCS1 

RMWC 

RMBA 

RMDA 

RMCS2 

RMDS 

RMER1 

RMAS 

RMLA 

RMDS 

RMMR1 

RMDT 

RMSN 

RMOF 

RMDC 

RMHR 

RMMR2 

RMER2 

RMEC1 

RMEC2 

*RMBAE 

♦RMCS3 

* RH70 CONTROLLER REGISTERS 


COMMANDS PERFORMED BY THE DRIVER 
COMMAND ( 


SEEK 

RECALIRATE 
DRIVE CLEAR 
RELEASE 


WRITE COMMAND 

WORD COUNT 
BUFFER ADDRESS 
SECTOR 
TRACK 
CYLINDER 
ERROR TABLE 

STATUS/ERROR INDICATOR 


THIS SETUP ACHIEVED 
EVERYTHING THE 
ABOVE TABLE DID. BUT 
IN A CLEANER FORMAT 


INDEX 


COMMAND TYPE 
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SEQ 003 7 


L 3 


1882 

OFFSET 


115 P 

1883 

RETURN TO CENTER 

117 P 

1884 

READIN PRESET 


121 N 

1885 

PACK ACKNOWLEDGE 


123 N 

1886 

SEARCH 


131 P 

1887 

GET REGISTER(S) 


141 S 

1888 

SET FORMAT 


143 S 

1889 

SELECT DRIVE 


145 S 

1890 

WRITE CHECK DATA 

151 D 

1891 

WRITE CHK HEADER i DATA 

153 D 

1892 

WRITE DATA 


161 D 

1893 

WRITE HEADER 8 DATA 

163 D 

1894 

READ DATA 


171 D 

1895 

READ HEADER t DATA 

173 D 

1896 




1897 




1898 

N * HOUSEKEEPING 


1899 

P = POSITIONING 



1900 

D = DATA TRANSFER 


1901 

S = SPECIAL PROVIDED BY 

THE DRIVER 

1902 




1903 

9.7 DPS STATUS/ERROR INDICATOR WORD 


1904 




1905 

THIS INDICATOR WILL INFORM THE 

USER OF THE RESULTS OF THE REQUEST. 

1906 

THIS IS ACCOMPLISHED BY 

SETTING VARIES BITS OF THE INDICATOR TO 

1907 

A ONE. 



1908 




1909 

1910 

1911 

BIT NO. 

MEANING 

: 

< 

s 

u. 




1912 

1913 

15 

ERROR OCCURRED 

DONE (BIT07*0); BITS 14-9 SPECIFIES TYPE 

1914 


DONE 

(8IT07*1); BITS 6-3 SPECIFIES TYPE 

1915 




1916 

14(1) 

USER MADE A REQUEST FOR A FUNCTION TO BE 

1917 


PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 

1918 




1919 

9(3X4) 

SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 

1920 




1921 

7 

DONE 


1922 




1923 

6(2) 

ERROR OCCURRED DURING AN I/O OPERATION 

1924 




1925 

1926 

1927 

1928 

5(2) 

ERROR OCCURRED DURING AN OPERATION 

OTHER THAN I/O. 

4 (2i 

CORRECTABLE UNSAFE CONDITION OCCURRED 

1929 




1930 

2 

PORT REQUEST TIMEOUT. THE DRIVER REQUESTED 

1931 


THE DRIVE BUT THE OPPOSITE PORT DID NOT 

1932 


RELEASE 

THE DRIVE WITHIN 15. SECONDS. 

1933 




1934 

1 

NON-EXISTENT DRIVE REQUESTED. USER MADE 

1935 


A REQUEST FOR A NON-EXISTENT DRIVE. 

1936 

1077 




lyjf 




1938 

NOTES FOR ABOVE 




M 3 


SEO 0038 
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1939 

1940 

mi 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 


( 1 ) = 
( 2 ) = 

(3) = 

(4) = 


REQUEST WASN’T PUT IN QUEUE. 
REGISTERS WERE NOT SAVED) 


(RH/RM 


REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A "DRIVE CLEAR" TO THE DRIVE. 

NOTE: ALL RH/RM REGISTERS ARE SAVED 
AS PER DPB+14 BEFORE THE "DRIVE CLEAR". 

REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MASS8US INIT. ALL 
RH/RM REGISTERS FOR THE DRIVE WERE 
SAVED AS PER DP8+14 BEFORE THE INIT. 

A 'RECALIBRATE" SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 


9.8 


ERROR CALLS MADE BY THE DRIVER. 

THERE ARE A FEU ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPS. 

WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL HAKE 
AN ERROR CALL OF THE FORM "ERROR N" # WHERE *V‘ IS THE ERROR 
NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION. 


N 

1 

2 


TYPE 


RH70 INTERRUPT 
OCCURRED (RRAS=0) 

UNEXPECTED ATTENTION 
OCCURRED 


3 

4 


NOT USED 
NOT USED 

ADDRESS PLUG CHANGE 
BIT SET COPE' ERROR) 


DATA AVAILABLE 


*R4= RMCSI’S ADDRESS 


R1- DRIVE NUMBER 
R3= ATA BIT 
*R4= RMCSI’S ADDRESS 
R5= i WAS) 

RMERRS =RHDS 
RM£RRS+2=RHER1 
RMERRS +4 =RMER2 
RMERRS+6=RMMR2 


R1= DRIVE NUMBER 
R3= ATA BIT 
•R4- RMCSI'S ADDRESS 
R5= (RMAS) 

RMERRS -RMDS 

RMERRS*2*RMER1 

RMERRS+4=RM£R2 


* THIS IS THE ACTUAL UNI8US ADDRESS (176700) 
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N 3 


SEQ 003 


1 

56 

57 


58 


59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 


001100 

104000 

000004 


000011 

000012 

000015 

000200 

177776 

177776 

177774 

177772 

177570 

177570 


;*LAST REVISION 23-DEC-81 

TITLE CZRNAAO RM80 PERF EXER 
•COPYRIGHT (C) 1982 
•DIGITAL EQUIPMENT CORPORATION 
•COLORADO SPGS. , CO. 80919 

•PROGRAM BY MIKE LEAVITT 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZQAC-C5). 18-MAR-81 


S8TTL 

* 


OPERATIONAL SWITCH SETTINGS 


SWITCH 

----- 

13 

10 

8 

7 

6 

5 


USE 


1 

0 


HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 

INHIBIT END OF PASS MESSAGES 

DISPLAY ALL DATA COMPARE ERRORS 

DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) 

A. PARTIAL REGISTER DISPLAY IF ERROR 

B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR 

A. DO NOT CHECK FOR MAXIMUM ERROR COUNTS 

B. DO NOT DROP DRIVE AT END OF TEST 

A. DISPLAY ERROR SECTOR IF *DCK', 'DTE', OR 'WCF' ERROR 

B. DISPLAY SECTOR IF 'DCK' ERR UNCORRECTABLE AFTER 
28TH RETRY 

C. IF DATA COMPARE ERROR 8 SW07 SET, DISPLAY 
REMAINDER OF BUFFER 

A. DO NOT TYPE DRIVE STATUS AT PROGRAM START 
8. DO NOT TYPE PERFORMANCE REPORT AFTER SPECIFIED TIME 
C. PROMPT 'FE CYLINDER' MESSAGE IN AUTO(CHAIN) RUN MODE 
INHIBIT DATA COMPARE AFTER READ COMMAND, W/0 ERROR 
READ ONLY MODE 


.S8TTL BASIC DEFINITIONS 

; •INITIAL ADDRESS OF THE STACK POINTER ••* 1100 ••• 

STACK * 1100 

ERROR = EMT ;;BASIC DEFINITION OF ERROR CALL 

SCOPE = IOT .- .-BASIC DEFINITION OF SCOPE CALL 


.-•MISCELLANEOUS DEFINITIONS 

HT 

= 11 

.-.-CODE FOR HORIZONTAL TAB 

LF 

= 12 

;;CODE FOR LINE FEED 

CR 

= 15 

; ; CODE FOR CARRIAGE RETURN 

CRLF 

* 200 

.-.-CODE FOR CARRIAGE RETURN-LINE FEED 

PS 

= 177776 

.-.-PROCESSOR STATUS WORD 

PSW=PS 



STKLMT 

= 177774 

;; STACK LIMIT REGISTER 

PI RQ 

= 177772 

• ; PROGRAM INTERRUPT REQUEST REGISTER 

DSWR 

= 177570 

-HARDWARE SWITCH REGISTER 

DDISP 

= 177570 

;; HARDWARE DISPLAY REGISTER 

.-•GENERAL PURPOSE 

REGISTER DEFINITIONS 
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SEO 0040 



000040 

000100 

000140 

000200 

000240 

000300 



000001 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 


.-•PRIORITY LEVEL DEFINITIONS 


PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 


.-•"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15 = 100000 

SW14 = 40000 

SW13 = 20000 

SW12 = 10000 

SW1 1 = 4000 

SW10 = 2000 

SW09 = 1000 

SWOE - 400 

SW07 = 200 

SW06 = 100 

SW05 = 40 

SW04 = 20 

SW03 * 10 

SW02 = 4 

SW01 = 2 

SWOO = 1 

SW9=SW09 

SW8=SW08 

SW7=SW07 

SW6=SW06 

SW5-SW05 

SW4=SW04 

SW3=SW03 

SW2=SW02 

SW1=SW01 

SW0=SW00 

.-•DATA BIT DEFINITIONS (BITOO TO BIT15) 
6 



BASIC DEFINITIONS 


77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 
% 

95 

96 

97 

98 

99 
100 


000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 


000004 

000010 

000014 

000014 

000014 

000020 

000024 

000030 

000034 

000060 

000064 

000240 
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BIT08 

= 400 

BIT07 

= 200 

BIT 06 

= 100 

BIT05 

= 40 

BIT04 

= 20 

BIT03 

= 10 

BIT02 

= 4 

BIT01 

= 2 

BITOO 

= 1 


C 4 


BIT9=8JT09 
BIT8=8IT08 
dIT7=8IT07 
BIT6=8IT06 
BIT5=BJT05 
BIT4=8I T04 
BIT3=8IT03 
BIT2=8IT02 
BIT1=8IT01 
8IT0=8IT00 

.-•BASIC *W TRAP VECTOR 
ERRVEC = 4 
RESVEC = 10 
TBITVEC = 14 
TRTVEC = 14 
8PTVEC * 14 
IOTVEC * 20 
PVRVEC = 24 
EMTVEC 
TRAPVEC 
TKVEC * 60 
TPVEC = 64 
PI ROVE C * 240 




ADDRESSES 

TIRE OUT AMD OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
”T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (PPT) 

INPUT/OUTPUT TRAP (IOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) **ERROR** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 


.SBTTL RM CONTROLLER REGISTERS 
.-CONTROL AND STATUS REGISTER 1 (RMCS1) 


000100 

IE 

5 100 

000200 

RDY 

= 200 


A16 

* 400 

001000 

A17 

= 1000 

002000 

PSEL 

s 2000 

020000 

MCPE 

s 20000 

040000 

TRE 

x 40000 


;SC 

= 100000 


INTERRUPT ENABLE (BIT #6) 

READY (BIT 07) 

HIGH ORDER BUS ADDRESS BIT (BIT 08) 
HIGH ORDER BUS ADDRESS BIT (BIT #9) 
PORT SELECT (BIT #10) 

MASSBUSS PARITY ERROR (BIT #13) 
TRANSFER ERROR (BIT #14) 

SPECIAL CONDITION (BIT #15) 


;UORD COUNT RE6ISTER (RMWC) 

.-(EACH BIT IS CALLED BY BIT NUMBER) 

.-BUS ADDRESS REGISTER (RMBA) 

.-(EACH BIT IS CALLED BY BIT NUMBER) 

.'CONTROL AND STATUS REGISTER 2 (RMCS2) 


000001 

000002 


•JS1 

US2 


= 1 
= 2 


.UNIT SELECT (BIT #0) 
.UNIT SELECT (BIT #1 ) 


SEQ 004 


D 4 
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101 

000004 

US4 

= 4 

102 


BAI 

= 10 

103 


PAT 

- 20 

104 

-I'KvMf 

CLR 

= 40 

105 

■* vm'l 

IR 

= 100 

106 


OR 

= 200 

107 


MDPE 

= 400 

108 


MXF 

= 1000 

109 


PGE 

= 2000 

110 

■•raw! 

NEH 

= 4000 

111 


NED 

= 10000 

112 


UPE 

= 20000 

113 


WCE 

= 40000 

114 

115 

100000 

DLT 

= 100000 

116 


.-DATA BUFFER REGISTER 

117 

118 


.-(EACH dIT IS CALLED 

119 


.S8TTL 

RM REGISTERS 


SEG 004? 


120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 


000001 

00000 ? 

000004 

000010 

000020 

000040 

004000 


000001 

000100 

000200 

000400 

001000 

002000 

004000 

010000 

020000 

040000 

100000 


000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

002000 


UNIT SELECT (BIT #2) 

BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
HASSBUS PARITY TEST (BIT #4) 

CLEAR (BIT #5) 

INPUT READY (BIT #6) 

OUTPUT READY (BIT #7) 

HASS BUS PARITY ERROR 
HISSED TRANSFER ERROR 
PROGRAM ERROR (BIT #10) 

NON EXISTENT HEHORV (BIT #11) 

NON EXISTENT DRIVE (BIT #12) 

UNIBUS PARITY ERROR (BIT #13) 

WRITE CHECK ERROR (BIT #14) 

DATA LATE (BIT #15) 


(BIT #8) 
(BIT #9) 


.CONTROL AND STATUS 1 REGISTER. (#00) 


GO 

FO 

FI 

n 

F3 

F4 

DVA 


1 

2 

4 

10 

20 

40 

4000 


GO BIT (BIT #0) 

FUNCTION CODE BIT #1 
FUNCTION CODE BIT #2 
FUNCTION CODE BIT #3 
FUNCTION CODE BIT #4 
FUNCTION CODE BIT #5 
DEVICE AVAILABLE (BIT #11) 


.-DRIVE STATUS REGISTER (RHDS1) (#01) 


Off Oh 

vv 

DRY 

DPR 

PGM 

LBT 

URL 

HOL 

PIP 

ERR 

ATA 


1 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


OFFSET ON (BIT #0) 

VOLUME VALID (BIT #6) 

DRIVE READY (BIT #7) 

DRIVE PRESENT (BIT #8) 

PROGRAHABLE (BIT #9) 

LAST BLOCK TRANSFERRED (BIT #10) 

WRITE LOCK (BIT #11) 

MEDIUM ON-LINE (BIT #12) 

POSITIONING OPERATION IN PROGRESS (BIT #13) 
COMPOSITE ERROR (BIT #14) 

ATTENTION ACTIVE (BIT #15) 


.-ERROR REGISTER #01 (RMER1) (#02) 


ILF 

ILR 

RMR 

PAR 

FER 

WCF 

ECH 

HCE 

HCRC 

AOE 

I AC 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 


ILLEGAL FUNCTION (BIT #0) 

ILLEGAL REGISTER (BIT #1) 

REGISTER MODIFICATION REFUSED (BIT #2) 
PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 

WRITE CLOCK FAIL (BIT #5) 

ECC HARD ERROR (BIT #6) 

HEADER COMPARE ERROR (BIT #7) 

HEADER CRC ERROR (BIT #8) 

ADDRESS OVERFLOW ERROR (BIT #9) 

INVALID ADDRESS ERROR (BIT #10) 
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SEO 00<*3 


004000 

0100C0 

020000 

040000 

100000 


000001 

000002 

000004 



000200 


= 4000 
= 10000 
= 20000 
= 40000 
= 100000 


WRITE LOCK ERROR (BIT #11) 
DRIVE TIDING ERROR (BIT #12) 
OPERATION INCOMPLETE (BIT #13) 
DRIVE UNSAFE (BIT #14) 

DATA CHECK ERROR (BIT 15) 


; MAINTAINABILITY REGISTER (RMMR1)(#03) 

.-ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 

ATO = 1 .DEVICE 0 (BIT #0) 

ATI - 2 .DEVICE 1 (BIT #1) 


AT4 = 20 .-DEVICE 4 (BIT #4) 
AT5 = 40 .-DEVICE 5 (BIT #5) 
AT6 = 100 .DEVICE 6 (BIT #6) 
AT 7 = 200 .-DEVICE 7 (BIT #7) 

.-DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 


DEVICE 

DEVICE 


(BIT #2) 
(BIT #3) 


.-DRIVE TYPE REGISTER (RMDT) (#06) 


000001 

000002 

000004 



000200 


004000 

020000 

040000 

100000 


000100 

000200 

000400 

001000 

002000 


000001 

001000 

002000 

004000 

010000 


DTCO 

- 1 

DT01 

» 2 

DT02 

= 4 

DT03 

- 10 

DT04 

= 20 

DT05 

= 40 

DT06 

= 100 

DT07 

= 200 

DT08 

= 400 

DRQ 

* «5o 

MOH 

= 20000 

TAP 

= 40000 

NSA 

= 100000 


DRIVE TYPE NUMBER BIT 1 
DRIVE TYPE NUMBER BIT 2 
DRIVE TYPE NUMBER BIT 3 
DRIVE TYPE NUMBER BIT 4 
DRIVE TYPE NUMBER BIT 5 
DRIVE TYPE NUMBER BIT 6 
DRIVE TYPE NUMBER BIT 7 
DRIVE TYPE NUMBER BIT 8 
DRIVE TYPE NUMBER BIT 9 
DRIVE REQUEST REQUIRED (BIT #11) 
MOVING HEAD (BIT #13) 

TAPE DRIVE (BIT #14) 

NOT SECTOR ADDRESSED (BIT #15) 


; LOOK-AHEAD REGISTER (RMLA) (#07) 


SCI 

= 100 

SC2 

= 200 

SC04 

= 400 

SC10 

= 1000 

SC20 

= 2000 


SECTOR COUNT FIELD 0 (BIT #6) 
SECTOR COUNT FIELD 1 (BIT #7) 
SECTOR COUNT FIELD 2 (BIT #8) 
SECTOR COUNT FIELD 3 (BIT #9) 
SECTOR COUNT FIELD 4 (BIT #10) 


.-SERIAL NUMBER REGISTER (RMSN) (#10) 
.-(EACH IS CALLED BY BIT NUMBER) 

.-OFFSET REGISTER (RMO V (#11) 


OFFDIR 

SSEI 

HCI 

ECI 

FMT16 


= 1 

= 1000 


= 188 


OFFSET DIRECTION _ 

SKIP SECTOR ERROR INHIBIT (BIT #9) 
HEADER COMPARE INHIBIT (BIT #10) 

ERROR CORRECTION CODE INHIBIT (BIT #11) 
FORMAT BIT (BIT #12) 


i 
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F «♦ 


SEO 0044 


215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 
22 9 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 
2 63 

264 

265 

266 


,'DFSIRED CYLINDER ADDRESS (RMDC) (#12) 
; (EACH BIT IS CALLED BY BIT NUMBER) 

.•CURRENT CYLINDER ADDRESS (RMCC) (#13) 
.-(REGISTER CURRENTLY NOT USED) 

;RM ERROR REGISTER #02 (RMER2) (#15) 


000010 

DPE 

X 

WTtTfrM 

SSE 

X 

000200 

DVC 

X 

002000 

LBC 

x 

iKwiom 

LSC 

s 

010000 

IVC 

X 

020000 

OPE 

X 

040000 

SKI 

s 

100000 

BSE 

* 


10 

40 

200 

2000 

4000 

10000 

20000 

40000 

100000 


DATA PARITY ERROR (BIT #3) 

SKIP SECTOR ERROR (BIT #5) 
DEVICE CHECK (BIT #7) 

LOSS OF BIT CLOCK (BIT #10) 

LOSS OF SYSTEM CLOCK (BIT #11) 
INVLAID COMMAND ERROR (BIT #12) 
OPERATOR PLUG ERROR (BIT #13) 
SEEK INCOMPLETE (BIT #14) 

BAD SECTOR ERROR (BIT #15) 



.(EACH 


.S8TTL 

000101 

RNOP 

000105 

SEEK 

000107 

RECAL 

000111 

DRVCLR 

000113 

RELSE 

000117 

RTC 

000121 

READ IN 

000123 

ACK 

000131 

SEARCH 

000141 

6ETREG 

000143 

SETFMT 

000145 

SELDRV 

000151 

WCKD 

000153 

WCKHD 

000161 

WRTDAT 

000163 

URTHD 

000171 

«DDAT 

000173 

RDHD 

176700 

ABASE 

000254 

AVECT1 


;ECC POSITION REGISTER (RMEC1) (#16) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

;ECC PATTERN REGISTER (RMEC2) (#17) 


.S8TTL RM DRIVER COMMANDS 


NO OPERATION 
SEEK 

RECALIBRATE 
DRIVE CLEAR 
RELEASE 

RETURN TO CENTER LINE 
READ IN PRESET 
PACK ACKNOWLEDGE 
SEAACH 

GET REGISTERS 

SET FORMAT (I ECI OR HCI) 

SELECT DRIVE 

WRITE CHECK DATA 

WRITE CHECK HEADER 8 DATA 

WRITE DATA 

WRITE HEADER t DATA 

READ DATA 

READ HEAOER t DATA 


= 176700 
# 254 


00 'go 


CZRNAAO RM80 PER r EXER MACRO V04.0G 14- JAN-8? 15:16:58 PAGE 5 
TRAP CATCHER 


G 4 


SEQ 0045 


000000 


000174 
000174 000000 
000176 000000 


000200 000137 003542 
000204 000137 003532 


000210 
000046 
000046 031752 
000052 
000052 040000 
000210 

001100 


001100 
000024 
000024 000200 
000044 
000044 001100 
001100 


.S8TTL TRAP CATCHER 

.=0 

•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2,HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 6 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.*174 

DISPREG: .WORD 0 
SWREG: .WORD 0 


;; SOFTWARE DISPLAY REGISTER 
.-.SOFTWARE SWITCH REGISTER 


.S8TTL STARTING ADDRESS(ES) 
JMP dfSTARTI 

JMP 4# ST ART 

.SflTTL ACT11 HOOKS 


.-.-JUMP TO STARTING ADDRESS OF PROGRAM 
.'CHANGE THE RH ADDRESS 


; HOOKS REQUIRED BY ACT11 
SSVPC*. 

.=46 
SEND AD 
.=52 

.WORr 40000 

.=ssvpc 


;SAVE PC 

;;1>SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET 10C.52 TO 40000 
;; RESTORE PC 


.=1100 

.S8TTL 


APT PARAMETER BLOCK 


.-SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


.sx=. 

.-.-SAVE CURRENT LOCATION 

.=24 

.-.-SET POWER FAIL TO POINT TO START OF PROGRAM 

200 

;;FQR APT START UP 

.=44 

.-.-POINT 10 APT INDIRECT ADDRESS PNTR. 

SAPTHDR 

.'.'POINT TO APT HEADER SHOCK 

.=.$X 

; .-RESET LOCATION COUNTER 


9 

10 


001100 


SAP T HD: 

001100 

000000 

SHIBTS: 

001102 

001206 

SMBADR: 

001104 

014234 

STSTM: 

001106 

014234 

SPASTM: 

001110 

014234 

SUNITM: 

001112 

000032 



001114 

TAB.XY*. 


SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 

.WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.WORD SMAIL ;; ADDRESS OF APT MAILBOX (BITS 0-15) 

.WORD 6300. ;;RUN TIM OF LONGEST TEST 

.WORD 6300. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

.WORD 6300. * ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 

.WORD SETEND-S^AIL/2 ::LENGTH MAILBOX-ETABIE (WORDS) 

,-CMTAGS TARING ADDRESS 
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SEQ 0046 


.SBTTL COMMON TAGS 


001114 

001114 

001116 

001117 

001120 

001122 

001124 

001126 

001130 

001131 

001132 

001134 

001136 

001140 

001142 

001144 

001146 

001150 

001151 

001152 

001154 

001156 

001160 

001162 

001164 

001166 

001170 

001171 

001172 

001173 


001114 

000000 

000 

000 

000000 

000000 

000000 

000000 

000 

001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000 

000 

000000 
177570 
177570 
177560 
177562 
177564 
177566 
000 
00 2 
012 
000 


•THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
•USED IN THE PROGRAM. 


SCMTAG: 

STSTNM 
SERF LG 
SICNT: 
SLPADR 
SLPERR 
SERTTL 
SITEMB 
SERMAX 
SERRPC 
SGDADR 
S6DADR 
SGDDAT 
S6DDAT 


SAUT08: 

SINTAG: 

SUR: 
DISPLAY 
STKS 
STUB 
STPS 
STPB 
SNULL: 
SF1LLS: 
SFILLC: 
STPFLG: 


.sTAB.XY 

.WORD 0 
.BYTE 0 
.BYTE 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
•BYTE 0 
.BYTE 1 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
•BYTE 0 
.BYTE 0 
.WORD 0 
.WORD DSWR 
: .WORD DDISP 
177560 
177562 
177564 
177566 
.BYTE 0 
•BYTE 2 
.BYTE 12 
.BYTE 0 


START OF COMMON TAGS 

CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BVTf 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD* DATA 
RESERVED— NOT TO BE USED 

AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A '1INE FEED" 

Terminal available** flag <bit<o7>=o=yes> 


001174 

000000 


STMPO: .WORD 

0 

•USER DEFINED 

001176 

207 

377 

377 SBELL: .ASCIZ 

<207><377><377> .-.CODE FOR BELL 

001202 

077 


SQUES: .ASCII 

/?/ 

.-.’QUESTION NARK 

001203 

015 


ICRLF: .ASCII 

<15> 

.-.-CARRIAGE RETURN 

001204 

012 

000 

SLF: .ASCIZ 

<1 2> 

.‘.‘LINE FEED 




1 SBTTL APT MAI LBOX-E TABLE 




.EVEN 



001206 



SMAJL: 


;;APT MAILBOX 

001206 

000000 


SMSGTY: .WORD 

AMSGTY 

;. -MESSAGE TYPE CODE 

001210 

000000 


SFATAL: .WORD 

AFATAL 

;; FATAL ERROR NUMBER 

001212 

000000 


JTESTN: .WORD 

ATESTN 

.-.-TEST NUMBER 

001214 

000000 


SPASS: .WORD 

APASS 

.-.-PASS COUNT 

001216 

img 


IDE VC T : .WORD 

ADEVCT 

.-.-DEVICE COUNT 

001220 



SUNIT: .WORD 

AUNIT 

.-.-I/O UNIT NUMbcR 

001222 

000000 


IMSGAD: .WORD 

AMSGAD 

;; MESSAGE ADDRESS 

001224 

■iTiTiTmTiKI 


SMSGLG: .WORD 

AMSGLG 

..MESSAGE LENGTH 

001226 



IE TABLE: 


; .-APT ENVIRONMENT TABLE 



I 4 


SCO 0047 


; ; ENVIRONMENT BYTE 
; ; ENVIRONMENT MODE BITS 
; ;APT SUITCH REGISTER 
; .'USER SWITCHES 
;:CPU TYPE, OPTIONS 
6bs 15-1 1*CPU TYPE 

1 1 /04*01 .11/05*02,11 /20*03 . 1 1 /40*04 , 1 1 /45=05 
11/70*06,PDQ*07,Q*10 
BIT 10*REAL TIME CLOCK 
BIT 9*FL0ATING POINT PROCESSOR 
BIT 8*M£M0RY MANAGEMENT 
; ;HIGH ADDRESS, M.S. BYTE 
;:MEM. TYPE.BLM1 
M^M.TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE *001 
300 NSEC BIP0LAR*002 
500 NSEC M0S*003 

^MEMAAST^ADDfi^BYTES.THlS WORD AND LOW OF •'TYPE" ABOVE 

; ;H1GH ADDRESS, M.S. BYTE 

; ;MEM. TYPE ,811092 

;;M£M.LAST AD DRESS, 8LK#2 

;;HIGH ADDRESS, M.S. BYTE 

;;MEM.TYPE,BLK#3 

;;MEM.LAST ADDRESS, BLK#3 

;;HIG H ADDRESS, M.S. BYTE 

; ;MEM. TYPE ,BLK#4 

;;MEM.LAST ADDRESS .BLK#4 „ , 

.-.-INTERRUPT VECTOR#!, BUS PRIORI TY*1 
.-.-INTERRUPT VECT0RA28US PRI0RITV#2 
.-.♦BASE ADDRESS OF EQUIPMENT UNDER TEST 
* -DEVICE MAP 

;; CONTROLLER DESCRIPTION WORD#! 

;; CONTROLLER DESCRIPTION W0RD#2 
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.S8TTL USER DEFINED 


001272 

176700 

SRMADR: 

.WORD 

176700 

001274 

000254 

SRMVEC : 

.WORD 

254 

001276 

001300 

172540 

SLKCSR: 

.WORD 

172540 

172542 

172542 

SLKCS8: 

.WORD 

001302 

000104 

SLPVEC: 

.WORD 

104 

001304 

177546 

SLKS: 

.WORD 

177546 

001306 

000100 

SLLVEC: 

.WORD 

100 

001310 

177777 

PCLOCK: 

.WORD 

-1 

001312 

177777 

CLKFLG: 

.WORD 

-1 

001314 

000074 

HZ: 

.WORD 

60. 

001316 

000000 

STATIN: 

.WORD 

0 

001320 

OOOOCO 

001220 

PACK: 

DRIVE 

.WORD 

=$UNIT 

0 

001322 

000000 

ATTN: 

.WORD 

0 

001324 

000000 

DRVNO: 

.WORD 

0 

001326 

000000 

MASK: 

.WORD 

0 

001330 

000 000 

RETRY: 

.BYTE 

0,0 

001332 

000003 

FAIRNS: 

.WORD 

3 

001334 

000000 

LSTAD: 

.WORD 

0 

001336 

000000 

CHGADR: 

.WORD 

0 

001340 

I'M'M™ . 

CFLAG: 

.WORD 

0 

001342 

BADSEC: 

.WORD 

c 

001344 

HOUR: 

.WORD 

0 

001346 

000000 

MINUTE: 

.WORD 

0 

001350 

000000 

SECOND: 

.WORD 

0 

001352 


ONESEC: 

.WORD 

0 

001354 

177777 

ZROIND: 

.WORD 

-1 

001356 

000 

FRSTER: 

.BYTE 

0 

001357 

000 


.BYTE 

0 

00 1 360 

000000 

SAVER1 : 

.WORD 

0 

001362 


SAVERS: 

.WORD 

0 

001364 

000000 

ERCTR: 

.WORD 

0 

001366 


LIMIT: 

.WORD 

0 

001370 

CMCNT: 

.WORD 

0 

001372 

CMCYL: 

.WORD 

0 

001374 


CMSEC: 

.BYTE 

0 

001375 


CMTRK: 

.BYTE 

0 

001376 

000000 

ECBIT: 

.WORD 

0 

001400 


ECSEC: 

.WORD 

0 

001402 

000000 

ECMSKO: 

.WORD 

0 

001404 

000000 

ECMSK1: 

.WORD 

0 

001406 

000000 

ECWRD: 

.WORD 

0 

001410 


ECGD: 

.WORD 

0 

001412 

001414 

000000 

ECBADO: 

.WORD 

0 

000000 

ECWRD1 : 

.WORD 

0 

001416 

000000 

ECGD1 : 

.WORD 

0 

001420 

000000 

EC8AD1 : 

.WORD 

Q 

001422 

oo'ose 

CYLIMT: 

.WORD 

558. 

001424 

000036 

SECLMT: 

.WORD 

30. 


J A 


SEQ 0048 


; FIRST ADDRESS OF RH/RM REGISTERS 
; VECTOR ADDRESS 

;ADDR OF KW11-P STATUS REGISTER 

; ADDR OF KW11-P COUNTER BUFFER 

; ADDR OF KW11-P VECTOR 

; ADDR OF KW11-L STATUS REGISTER 

;ADDR OF KW11-L VECTOR 

;'0' IF KW11-P IS ON SYSTEM 

;'0' IF A CLOCK IS AVAILABLE 

;60. IF 60H2 SYSTEM. 50. IF 50HZ SYSTEM 

; ' TYPE STATISTICS* INDICATOR 

;'W * COMMAND INDICATOR 

.‘DRIVE » STORAGE: ERRORS 1-5 ft 10 

.-SAME AS USED IN APT 

;AT1N REG STORAGE: ERRORS 1-5 ft 10 

; DRIVE 9 STORAGE FOR PRINTOUT 

.ERROR RETRY REGISTER MASK 

; ERROR RETRY LIMIT IN THE LOWER BYTE 

.•RETRY COUNT IN THE UPPER BYTE 

; MAXIMUM TIME IN QUEUE VALUE 

; STORE LAST MEMORY ADDRESS HERE 

.CHANGE RH/RM UNIBUS ADDRESS FLAG 

;* CONTROL C* FLAG 

.BAD TRACK/SECTOR FLAG 

.HOUR COUNT STORED HERE 

.MINUTE'S COUNT STORED HERE 

.SECOND’S COUNT STORED HERE 

; TIMER ROUTINE COUNTER (FOR ONE SECOND) 

.ZERO INDICATOR FOR THE DATA COMPARE ROUTINE 
;DATA COMPARE ERROR FLAG 

; IF >0, PROCESSING 'DCKER* OR CAN'T MATCH PATTERN 

; IF < 0. MISCOMPARSION FOUND 

,‘MISCOMPARSION OR CAN'T MATCH PATTERN FLAG 

;IF < 0. ERROR IN BUFFER 

; SAVE R1 HERE 

.SAVE R5 HERE 

; NUMBER OF ERRORS 

.DISPLAY LIMIT 

.‘WORD COUNT 

.CYLINDER ADDRESS 

; SECTOR ADDRESS 

.‘TRACK ADDRESS 

; ERROR BURST BIT OFFSET 

.‘ERROR BURST WORD OFFSET (RELATIVE TO SECTOR) 

; CORRECTION MASK FOR FIRST ERROR WORD 

.CORRECTION MASK FOR SECOND ERROR WORD 

.LOCATION OF FIRST ERROR WORD 

.-GOOD DATA. FIRST WORD 

;BAD DATA. FIRST WORD 

.•LOCATION OF SECOND ERROR WORD 

.GOOD DATA. SECOND WORD 

.‘BAD DATA. SECOND WORD 

.•CYLINDER ADDRESS LIMIT 

.‘SECTOR ADDRESS LIMIT 


K 4 


SEQ 0049 


CZRNAAO RM80 PERF EXER 
USER DEFINED TAGS 

001426 000015 
001430 001057 
001432 001060 
001434 000000 
001436 000000 
001440 000000 
001442 000000 


001444 COOOOO 


001446 002740 
001450 005455 


001452 015200 
001454 000006 

001456 000031 
001460 000004 
001462 017400 
001464 000000 

001470 000001 


001472 000000 


001474 000000 


001476 000003 
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TRKLMT: 

.WORD 

13. 

FE 1 : 

.WORD 

559. 

FE2: 

.WORD 

560. 

FEFLAS: 

.WORD 

0 

DEC2: 

.WORD 

0 

RDONLY: 

.WORD 

0 

DRVPAR: 

.WORD 

0 

XXDP: 

.WORD 

0 


TRACK ADDRESS LIMIT 
1ST FE CYLINDER 
2ND FE CYLINDER 

EXERCISE FE CYLINDERS 0NLY=0, EXERCISE ENMRE DISK=1 
DECREMENT TRK/SEC ONCE=0. DECREMENT TRK/SEC TUIC£=1 
NOT READ ONLY=0, READ 0NLY*1 
WHEN DRIVES ARE BEING ASSIGNED, 

0= CHANGE DRIVE PARAMETERS 

1=D0 NOT CHANGE DRIVE PARAMETERS 

THE LOW 8YTE CONTAINS THE DRIVE NUMBER FROM WHICH 

THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 

'XXDP* DEVICE CODE FOR THE RM80. 


.S8TTL COMMON PARAMETERS 


THE FOLLOWING TWO LOCATIONS CONTAIN THE SOFT ERROR RATE WORDS USED TO 
DETERMINE END OF PASS WHEN THE PROGRAM IS DATA BIASED. 

IT WILL TAKE APPROXIMATELY 3.33 PASSES TO REACH THE SOFT ERROR RATE OF 
1 X 10*10 BITS (6.25 X 10*8 WORDS) READ OR 10. PASSES TO REACH THE 901 
CONFIDENCE LEVEL OF 3 X 10*10 BITS (1.875 X 10*9 WORDS) READ. 

ENOCON= LSB AND ENDC0N*2= MSB 


ENDCON: 


.WORD 

.WORD 




; (1.875 X 10*8 WORDS) OR (3 X 10*9 BITS) READ 


000000 


THE FOLLOWING TWO LOCATIONS CONTAIN THE SEEK ERROR RATE WORDS USED TO 
DETERMINE END OF PASS WHEN THE PROGRAM IS SEEK BIASED. 

IT WILL TAKE 1 PASS TO REACH A SEEK ERROR RATE OF 1 X 10*6 SEEKS OR 3 
PASSES TO REACH A 90* CONFIDENCE LEVEL Of 3 X 10*6 SEEKS. 

ENDSEK* LSB AND ENDSEK+2* MSB 


ENDSEK: .WORD 
.WORD 

MAXER: .WORD 
CMPLMT: .WORD 
WRDCNT; .WORD 
INTRVL: .WORD 

PASSES: .WORD 


PAT TERN .'.WORD 
RANDWC : .WORD 

RATIO: .WORD 


015200 ;(1 X 10*6 SEEKS) 

000006 

25. .-MAXIMUM ERRORS ALLOWED PER DRIVE 
4 ; NUMBER OF COMPARE ERRORS TYPED OUT 

7936. .MAXIMUM WORD COUNT (31. SECTORS) 

0,0 : FIRST WORD IS THE PERFORMANCE TYPEOUT INTERVAL 

; (IN MINUTES). SECOND WORD IS THE INTERVAL COUNTER. 

1 -NUMBER OF PASSES TO END OF TEST [THIS PARAMETER IS 

NOT USED WHEN PROGRAM IS OPERATING IN AUTO RUN(CHAI«) 

0 ;IF EQO.RANDOMLY SELECT DATA PATTERN 

0 * IF EO TO 0, GENERATE A RANDOM WORD COUNT 

FOR THE OPERATION. 

IF NOT EO TO 0, USE THE VALUE IN 'WRDCNT' FOR 
THE WORD COUNT 

READ /WRITE RATIO [RANGE 0-73 
(READ/WRITE) 


0 - 

15/1 

1 - 

7/1 

2 - 

6/2 

3 - 

5/3 

4 - 

4/4 

5 - 

3/5 

6 - 

2/6 
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L 4 


SEQ 0050 


001500 

000001 

ENDING: .WORD 

001502 

000001 

WRTCHK: .WORD 

001504 

000001 

MESSAGE .‘.WORD 

001506 

000000 

RANDOM: .WORD 

001510 

000000 

BADBLK: .WORD 


001512 000010 
001514 000004 


001516 000400 


001520 

001522 

001524 

001526 

001530 

001532 

001534 

001536 

001540 


lYmYl 

lYtYtYi 

[•luMl'I 


001542 000000 


001544 

001546 

001550 

001552 


000000 

000000 

000000 

000000 


IF NOT EQ 0, END OF PASS DETERMINED 

BY THE 'WORDS READ' COUNT. (2.5 X 10*8 WORDS) 

IF EQ 0, END OF PASS DETERMINED 

by the Seek count. (4 x 10*5 seeks) 

IF NOT EQ 0. DO AN APPROPRIATE WRITE 
CHECK AFTER EACH WRITE COMMAND. 

IF EQ 0. SELECT WRITE CHECK COMMANDS 
RANDOMLY. 

IF EQ 1. DO NOT PRINT DATA ERROR MESSAGES 
ASSOCIATED WITH OPERATOR SPECIFIED 
BAD SECTOR AREAS. 

IF NOT EQ 0. PRINT ERROR MESSAGES RELATING TO 
THESE AREAS. 

IF EQ TO 0. RANDOMLY SELECT DATA BLOCK 
ADDRESS. IF NOT EQU 0, SEQUENTIALLY 
SELECT DATA BLOCK ADDRESS 

IF EQ TO 1. THE BAD SECTOR ENTRY TABLE WILL ALWAYS 
BE INITIALIZED WHEN ASSIGNING A DRIVE; IF EO TO 0. 

THE 8AD SECTOR ENTRY TABLE WILL ONLY BE INITIALIZED 
IF THE HDA SERIAL NUMBER HAS CHANGED SINCE THE 
LAST TIME IT WAS READ. (NOTE: IF THE SERIAL NO. HAS 
CHANGED. THIS MOST LIKELY MEANS THAT THE HDA OR DRIVE 
HAP BEEN REPLACED WHILE THE DRIVE WAS DEASSIGNED) 


.SBTTL VALUES FOR FIRST OPERATION 


8EGPAT: .WORD 8. 
BEGCOD: .WORD 4 


8EGWC: .WORD 256. 


STARTING PATTERN CODE CRANGE 1 - 15.3 
STARTING COMMAND CODE CRANGE 0 - 53 

0 = WRITE CHECK DATA CWCKD') 

1 = WRITE CHECK HEADER t DATA CWCHKHD* - NOT USED) 

2 = WRITE DATA CWRTDAT*) 

3 = WRITE HEADER t DATA ('WRTHD* - NOT USED) 

4 = READ DATA CRDDAT*) 

5 = READ HEADER 8 DATA ('RDHD') 

STARTING WRD CNT CRANGE 6 - WRDCNT3 


.SBTTL TABLES. CONSTANTS, AND VARIABLE LOCATIONS 


.•LIST OF DRIVES PERFORMING COMMANDS 
ORDERQ: .WORD 0 
.WORD 0 
.WORD 0 


.WORD 
.WORD 
.WORD 
D 
D 
D 
D 
D 


ASNLST : .WORD 


;A BIT SET IS AN ASSIGNED DRIVE 


.‘ADDRESSES OF DRIVES TO BE DEASSIGNED 
DDR VS: .WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 


n 4 


StU WJ 


CZRNAAO 

TABLES. 
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001554 

000000 

.WORD 

0 

001556 

000000 

.WORD 

0 

001 560 

000000 

.WORD 

0 

001562 

000000 

.WORD 

0 

001564 

000000 

.WORD 

0 



.•ADDRESSES OF NEWLY 

001566 

tWy 'WPWfff 

NEWUNT: .WORD 

Q 

001570 

vKvI'l ■ 

.WORD 

0 

001572 

'IvI'W'B" 

.WORD 

0 

001574 

• s'lvI'B ■ 

.WORD 

0 

001576 

vIvM'B - 

.WORD 

0 

001600 


.WORD 

0 

001602 


.WORD 

0 

001604 

000000 

.WORD 

0 

001606 

000000 

.WORD 

0 



.-LIST OF DRIVES 

WAD 

001610 

IS*;* ■./ 

AVAIL: .WORD 

0 

001612 

wmfmm 

.WORD 

0 

001614 

ooocoo 

.WORD 

0 

001616 

000000 

.WORD 

0 

001620 


.WORD 

0 

001622 

Ivtwvl 

.WORD 

0 

001624 

l"""l *• 

.WORD 

0 

001626 

|l 1 1 1 1 ; I I •! l 

.WORD 

0 

001630 

000000 

.WORD 

0 



.-LIST OF DRIVES 

WAI1 

001632 

000000 

WAIT: .WORD 

0 

001634 


.WORD 

0 

001636 

000000 

.WORD 

0 

001640 

000000 

.WORD 

0 

001642 


.WORD 

0 

001644 

It HiMiMMi 

.WORD 

0 

001646 

Vi . . . . 

.WORD 

0 

001650 


.WORD 

0 

001652 

000000 

.WORD 

0 



.•BUFFER ALLOCATION 

001654 


8UFT8L: .WORD 

0 

00*656 


.WORD 

0.0 

001662 

ijiJiJimiMiI •Till 

.WORD 

0,0 

001666 

rrrHwTmT 

.WORD 

0,0 

001672 

I* t iTiiiiiiiii 

.WORD 

0.0 

001676 

iTii i 7 iI#T • 

.WORD 

0,0 

001702 

v!v!v® •* i? 

.WORD 

0.0 

001706 


.WORD 

0.0 

001712 

vItIt® i I ill i iTw 

.WORD 

0,0 

001716 


.WORD 

0,0 

001722 

000000 000000 

.WORD 

0.0 

001726 


.WORD 

0,0 

001732 


.WORD 

0,0 

001736 


.WORD 

0,0 

001742 


.WORD 

0.0 

001 746 


.WORD 

0.0 


N 4 


SEQ 005 2 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 7-4 
TABLES , CONSTANTS, AND VARIABLE LOCATIONS 


001752 

000000 000000 


.WORD 

0,0 





001 756 

000000 000000 


.WORD 

0,0 





001762 

000000 000000 


.WORD 

0,0 





001766 

000000 000000 


.WORD 

0,0 





001772 

000000 000000 


.WORD 

0.0 





001776 

000000 000000 


.WORD 

0,0 





002002 

000000 000000 


.WORD 

0.0 





002006 

000000 000000 


• WORD 

0,0 





002012 

000000 000000 


.WORD 

0,0 





02016 

000000 000000 


.WORD 

0.0 





002022 

000000 000000 


.WORD 

0.0 





002026 

000000 000000 


• WORD 

0,0 





002032 

000000 000000 


.WORD 

0.0 





002036 

000000 000000 


.WORD 

0.0 





002042 

HIM 


.WORD 

0.0 





002046 

000000 000000 


.WORD 

0.0 





002052 

000000 000000 


.WORD 

0,0 







.•DRIVE 

Parameter block (dpb) pointer table 




002056 

045416 

BLKADR : 

.WORD 

DRIVEO 

ADDRESS OF THE PARAMETER BLOCK 

FOR 

DRIVE 

0 

002060 

047632 


.WORD 

DRIVE 1 

ADDRESS OF THE PARAMETER BLOCK 

FOR 

DRIVE 

1 

002062 

052046 


.WORD 

DRIVE2 

ADDRESS OF THE PARAMETER BLOCK 

FOR 

DRIVE 

2 

002064 

054262 


.WORD 

DRIVES 

ADDRESS OF THE PARAMETER BLOCK 

FOR 

DRIVE 

3 

002066 

056476 


.WORD 

DRJVE4 

ADDRESS OF THE PARAMETER BLOCK 

FOR 

DRIVE 

4 

002070 

060712 


.WORD 

DRIVES 

ADDRESS OF THE PARAMETER BLOCK 

FOR DRIVE 

5 

002072 

063126 


.WORD 

DRIVE6 

ADDRESS OF THE PARAMETER BLOCK 

FOR 

DRIVE 

6 

002074 

065342 


.WORD 

DRIVE 7 

ADDRESS OF THE PARAMETER BLOCK 

FOR DRIVE 

7 



.•DRIVER 

COMMAND 

CONTROL TABLE (USED IN RM DRIVER) 




002076 

151 

C0MTBL: 

.BYTE 

WCKD 

WRITE CHECK DATA 




002077 

377 


.BYTE 

-1 

WRITE CHECK HEADER AND DATA (NOT USED) 


002100 

161 


.BYTE 

URTDAT 

WRITE DATA 




002101 

377 


.BYTE 

-1 

WRITE HEADER AND DATA (NOT USED) 



002102 

171 


.BYTE 

RDDAT 

READ DATA 




002103 

173 


.BYTE 

RDHD 

READ HEADER AND DATA 






: FUNCTION (COMMAND) CODE CONTROL TABLE 




002104 

004 

OPTBL: 

.BYTE 

4 

SEEK 




002105 

006 


.BYTE 

6 

RE CAL 




002106 

010 


.BYTE 

10 

DRIVE CLEAR 




002107 

012 


.BYTE 

12 

RELEASE 




002110 

014 


.BYTE 

14 

OFFSET 




002111 

016 


.BYTE 

16 

RETURN TO CENTERLINE 




002112 

020 


.BYTE 

20 

READIN PRESET 




002115 

022 


.BYTE 

22 

PACK ACKNOWLEDGE 




002114 

030 


.BYTE 

55 

SEARCH 




002115 

050 


.BYTE 

50 

WRITE CHECK DATA 




002116 

052 


.BYTE 

52 

WRITE CHECK HEADER AND DATA 




002117 

060 


.BYTE 

60 

WRITE DATA 




& 

062 


.BYTE 

$2 

WRITE HEADER AND DATA 





070 


.BYTE 

“o 

READ DATA 




• • ’-1 

072 


.BYTE 

72 

READ HEADER AND DATA 




002123 

377 


.BYTE 


TERMINATOR 






.EVEN 









.•MESSAGE CONTROL TABLE FOR 'OPTBL' TABLE 




002124 

123 105 

105 HNT8L: 

.ASC1Z 

/SEEK 

f 





SCO 005' 


I CZRSAAO 
TABLES, 
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B 5 


002134 

002144 

002154 

002164 

002174 

002204 

002214 

002224 

002234 

002244 

002254 

002264 

002274 

002304 

002314 


002324 

002326 

002330 

002332 

002334 

002336 

002340 

002342 

002344 

002346 

002350 

002352 

002354 

002356 

002360 

002362 

002364 

002366 

002370 

002370 

002372 

002374 

002376 

002400 

002402 

002404 

002406 

002410 

002412 

002414 

002416 

002420 

002422 

002424 

002426 


122 

104 

122 

117 

122 

122 

120 

123 

127 

127 

127 

127 

122 

122 

116 


002370 
002430 
002470 
002530 
002570 
002630 
002670 
002730 
002770 
003030 
0C3070 
003'' 30 
003170 
003230 
003270 
003330 
002370 
003272 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

oocooo 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


105 

103 

.ASCIZ 

/RE CAL 

/ 

122 

126 

.ASCIZ 

/DRVCLR 

/ 

105 

114 

.ASCIZ 

/RELSE 

/ 

106 

106 

.ASCIZ 

/OFFSET 

/ 

124 

103 

.ASCIZ 

/RTC 

/ 

105 

101 

.ASCIZ 

/READIN 

/ 

101 

103 

.ASCIZ 

/PACK 

/ 

105 

101 

.ASCIZ 

/SEARCH 

/ 

103 

113 

.ASCIZ 

/WCKD 

/ 

103 

113 

.ASCIZ 

/WCKHD 

/ 

122 

124 

.ASCIZ 

/WRTDAT 

/ 

122 

124 

.ASCIZ 

/WRTHD 

/ 

104 

104 

.ASCIZ 

/RDDAT 

/ 

104 

110 

.ASCIZ 

/RDHD 

/ 

117 

116 

.ASCIZ 

/NONE 

/ 


.EVEN 

.SBTTL DATA PATTERNS 


; STANDARD DATA 
STNDAT : .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


PATTERN 

DATAO 

DATA1 

DATA2 

DATA3 

DATA< 

DATA5 

DATA6 

DATA7 

DATA® 

DATA9 

DATA10 

DATA11 

DATA12 

DATA13 

DATA14 

DATA15 

ZEROS 

ONES 


ZEROS: 

DATAO: 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



POINTER TABLE 

STANDARD DA. A PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
STANDARD DATA PATTERN 
ALL O’S PATTERN 
ALL 1*S PATTERN 


000000 

000000 

000000 

>00000 


;ALL 0‘S DATA PATTERN 


000000 

000000 

» 

000000 

000000 

000000 


0 

1 


4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 
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SEQ 0054 


OOi 

ool 

002434 

002436 

002440 

002442 

002**44 

002446 

002450 

002452 

002454 

002456 

002460 

002462 

002464 

002466 

002470 

002472 

002474 

002476 

002500 

002502 

002504 

002506 

002510 

002512 

002514 

002516 

002520 

002522 

002524 

002526 

002530 

002532 

002534 

002536 

002540 

002542 

002544 

002546 

002550 

002552 

002554 

002556 

002560 

002562 

002564 

002566 

002570 

002572 

002574 

002576 

002600 

002602 


000001 

000003 

000007 

000017 

000037 

000077 

000177 

000377 

000777 

001777 

003777 

007777 

017777 

037777 

077777 

177777 

177776 

177774 

177770 

177760 

177740 

177700 

177600 

177400 

177000 

176000 

174000 

170000 

160000 

140000 

100000 

000000 

000000 

000000 

000000 

177777 

177777 

177777 

000000 


17777 
177777 


177777 

177777 

m 

133331 

133331 

133331 

133331 

133331 

133331 


DATA1 : 


0ATA2: 


DATA3: 


DATA4: 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


000001 
000003 
007 
017 
037 
000077 
00177 
00377 
0777 
1777 

m 

317777 

037777 

077777 

177777 

177776 

177774 

177770 

177760 

177740 

177700 

,77 $8 



.•STANDARD PATTERN 1 


.‘STANDARD PATTERN 2 



177777 

177777 



177777 

m 


t * ».« »;• 


177777 

m 



.•STANDARD PATTERN 3 


; STANDARD PATTERN 4 
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610 
002612 
002614 
002616 
002620 
002622 
002624 
002626 

002630 

002632 

002634 

002636 

002640 

002642 

002644 

002646 

002650 

0C2652 

002654 

002656 

002660 

002662 

002664 

002666 

002670 

002672 

002674 

002676 

002700 

002702 

002704 

002706 

002710 

002712 

002714 

002716 

002720 

002722 

002724 

002726 

002730 

002732 

002734 

002736 

002740 

002742 

002744 

002746 

002750 

002752 

002754 

002756 


133331 


133331 

133331 

133331 

133331 

052525 

052525 

052525 

125252 

125252 

125252 

052525 

052525 

125252 

125252 

052525 

125252 

052525 

125252 

052525 

125252 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

026455 
026455 
026455 
151322 
151322 
151322 
026455 
026455 
151322 
151322 
026455 
1513 22 


DATA5 : 


DATA6: 


DATA?: 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORP 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


1 33331 
133331 

1I3J1 

133331 

I3I35I 

133331 

133331 

133331 

052525 

052525 

052525 

125252 

125252 

125252 

052525 

052525 

125252 

125252 

052525 

125252 


m 

052525 

125252 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

155555 

026455 

026455 

026455 

151322 

151322 

151322 

026455 

026455 

151322 

151322 

026455 

151322 


SEO 0055 


D 5 


.•STANDARD PATTERN 5 


.•STANDARD PATTERN 6 


; STANDARD PATTERN 7 
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003306 

003310 

003312 

003314 

003316 

003320 

003322 

003324 

003326 

003330 

003332 

003334 

003336 

003340 

003342 

003344 

003346 

003350 

003352 

003354 

003356 

003360 

003362 

003364 

003366 


177777 

177777 

177777 

177777 

177777 

177777 

177777 

177777 

177777 

177777 

000000 

000000 

000000 

000000 

000000 


000000 


000000 

000000 

000000 

000000 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

DATA15: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


177777 

177777 

177777 

177777 

177777 

177777 

177777 

177777 

177777 

177777 

000000 

000000 

000000 

000000 

000000 

QOOOOO 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


i 


6 5 


SEQ 0058 


STANDARD PATTERN 15 


H r 
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.S8TTL ERROR POINTER TABLE 

; *THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

.-•THE INFORMATION IS OBTAINED BY USIN6 THE INDEX NUMBER FOUND IN 
.••LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

;* EM ; .-POINTS TO THE ERROR MESSAGE 

;* DH ;; POINTS TO THE DATA HEADER 

;• DT ; .-POINTS TO THE DATA 

;• DF ; .-POINTS TO THE DATA FORMAT 


SEQ 0059 


003370 


SERRTB: 


J 

2 

3 


.-ERROR 

1 

4 003370 

067646 


EMI 

5 003372 

072467 


DHl 

6 003374 

073134 


DTI 

7 003376 

O 

000000 


0 

o 

9 


.-ERROR 

2 

10 




11 003400 

067720 


EM2 

12 003402 

072474 


DH2 

13 003404 

073140 


DT2 

14 003406 

000000 


0 

15 




16 


.-ERROR 

3 

17 




18 003410 

067756 


EM3 

19 003412 

072550 


DH3 

20 003414 

073156 


DT3 

21 003416 

000000 


0 

22 




23 


.-ERROR 

4 

24 




25 003420 

070014 


EM4 

26 003422 

072576 


DH4 

27 003424 

073166 


DT4 

28 003426 

000000 


0 

29 




30 


.-ERROR 

5 

31 




32 003430 

070051 


EM5 

33 003432 

072474 


DH2 

34 003434 

073140 


DT2 

35 003436 

000000 


0 

36 




37 


.ERROR 

6 

38 




39 003440 

070105 


EM6 

40 003442 

072635 


DH6 

41 003444 

073200 


DT6 

42 003446 

000000 


0 


;RH CONTROLLER INTERRUPT OCCURRED (RMAS = 0) 


.-UNEXPECTED ATTENTION OCCURRED 


.-NOT USED 


.-NOT USED 


.-ADDRESS PLUG BIT CHANGED 


.-NOT USED 
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SEO 0060 


1 

2 

3 003450 

4 003452 

5 003454 

6 003456 
003462 

003522 

7 003522 

8 003524 

9 003526 

10 

11 003530 

12 

13 

14 

15 003532 

16 003540 

17 

18 003542 

19 

003550 

003552 

20 

21 003560 

22 003564 

23 003566 

24 

25 

003570 

003574 

003576 

003602 

003604 

003610 
003616 
003624 
003632 
003640 
003646 
003654 
00366 2 


003670 

003674 

003702 

003710 

003716 

003724 

003726 

003730 

003734 


011600 

005740 

022626 

104401 

000417 


010046 

104402 

000240 

000404 


012737 

000407 

012737 

000240 

012737 

005227 

001375 

000005 


012706 

005026 

022706 

001374 

012706 

012737 

012737 

012737 

012737 

012737 

012737 

012737 

012737 


013746 

012737 

012737 

012737 

022777 

001012 

000403 

012716 

000002 


003464 


;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BAD TWO: 


;;65$: 

64$: 


MOV 

TST 

CMP 

TYPE 

BR 

.ASCIZ 

MOV 

TYPOC 

NOP 

BR 


(SP), RO .SAVE PC WHERE THE TIME OUT OCCURED 

-(RO) .-ADJUST PC -2 

(SP)*, (SP)* .RESTORE STACK POINTER 

.65$ .'.'TYPE ASCIZ STRING 

&4$ : ; GE T OVER THE ASCIZ 

<CRLF ^UNEXPECTED BUS TIMEOUT. PC*/ 


RO. -(SP) 


START1 


.'SETUP FOR TYPING OUT PC 

.'PUT 'HALT(O)' INSTRUCTION HERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 

.’BRANCH TO START1 


.SBTTL START OF PROGRAM 


177777 

001336 

START: 

MOV 

*-1 .CHGADR 

.SET RH/RM ADDRESS CHANGE FLAG 




BR 

START2 

.'START THE PROGRAM 

000400 

001336 

START1 : 

MOV 

*400, CHGADR 

.'CLEAR THE RH/RM ADDRESS CHANGE FLAG 



; ; 

TST1 : 

NOP 



000001 

001212 


NOV 

*1 ,$TESTN 

.'.'SET TEST NUMBER IN APT MAIL BOX 

000000 


START2: 

INC 

#0 

;TTY LOOP. WAIT FOR INCREMENT 




BNE 

.-4 

;0F WORD 




RESET 


.'CLEAR THE WORLD 



.SBTTL 

INITIALIZE THE COMMON 

TAGS 



..CLEAR 

THE COMMON TAGS (SCMTAG) AREA 

001114 



NOV 

#$CMTAG.R6 

.'.'FIRST LOCATION TO BE CLEARED 




CLR 

(R6)* 

;; CLEAR MEMORY LOCATION 

001154 



CMP 

*SWR,R6 

.'.DONE? 




BNE 

.-6 

.'.LOOP BACK IF NO 


001100 

034640 

000340 

040060 

000340 

037536 

000340 

176543 

123456 


000004 

003730 

177570 

177570 

177777 


003736 


000030 

000032 

000034 

000036 

000024 

000026 

037122 

037124 


000004 

001154 

001156 

175230 


MOV 

;; INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


fSTACK.SP 
FEW VECTORS 
#$ERROR,B#EMTVEC 
*340.B#4 nTVEC* 2 
fSTAAP.BfTRAPVEC , 

#340.a#TRAPVEC*2;LEVEL 7 


* nnr 

#$PWRDN.B*PWRVEC 
*340.i#£wRVEC*2 ; 
*176$43,$HINUM 
*123456,$L0NUM 


SETUP the STACK POINTER 

;EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

TRAP VECTOR FOR TRAP CALLS 


.•POWER FAILURE VECTOR 
LEVEL 7 

PRIME THE RANDOM NUMBER GENERATOR 
BOTH HIGH AND LOU WORDS 


..SIZE FOR A HARDWARE SWITCH RE6l§TER. IF NOT FOUND OR IT 
TO A *-1 , SETUP FOR A SOFTWARE S 


IS 


..EQUAL 


64$: 


MOV B#ERRVEC,-<SP) 

MOV #64$,B#ERRVEC 

MOV #D SWR, SWR 

MOV #DD ISP, DISPLAY 

CMP *-1 .BSWR 

BNE 66$ 

BR 65$ 

MOV *65$, (SP) 

RT I 


SWITCH REGISTER. 

.SAVE ERROR VECTOR 
;SET UP ERROR VECTOR 
; SETUP FOR A HARDWARE SWICH REGISTER 
.AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
.-BRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT * -1 
; BRANCH IF NO TIMEOUT 
.'SET UP FOR TRAP RETURN 
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SEQ 0061 


003736 012737 000176 001154 65$: MOV XSWREG.SWR ;;POINT TO SOFTWARE SWR 

003744 012737 000174 001156 MOV XDISPREG, DISPLAY 

003752 012637 000004 66$: MOV (SP)*,i^RRVEC .-.-RESTORE ERROR VECTOR 


003756 

003762 

003770 

003772 

004000 

26 

27 004000 

28 004006 

29 

30 

004014 

004020 

004022 

004026 

004100 

004100 

004104 

004106 

004114 

004116 

004124 

004126 

004130 

004132 

004140 

31 

32 

33 

34 

35 004140 

36 004144 

37 004152 

38 004154 

39 004162 

40 004170 

41 004172 

42 004176 

43 004202 

44 004204 
004210 

004236 

45 004236 

46 004240 

47 004244 

48 004246 

49 004247 

50 004250 

51 004254 

52 


005037 

132737 

001403 

012737 


012737 

012737 


005227 

001027 

104401 

000424 


005737 

001012 

123727 

001406 

023727 

001005 

104406 

000403 

112737 


005037 

122737 

001121 

013737 

122737 

103002 

105037 

005737 

001425 

104401 

000412 


005046 

113716 

104403 

001 

000 

104401 

000460 


001214 

000200 001227 
001230 001154 


003450 000004 
000300 000006 


177777 

004030 


CLR 

B1TB 

BEG 

MOV 

67$: 

.-SETUP 'TIMEOUT 
MOV 
MOV 


$PASS 

XAPTSIZE.SENVM 

67$ 

XSSWREG.SWR 


.-.-CLEAR PASS COUNT 
.-.TEST USER SIZE UNDER APT 
;;YES. USE NON-APT SWITCH 
;;N0. USE APT SWITCH REGISTER 


* TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
XBADTMO.ERRVEC .-SETUP FOR UNEXPECTED TIMEOUT 
*PR6.ERRVEC*2 .-LEVEL 6 


.SBTTL TYPE PROGRAM NAME 
; ; TYPE THE NAME OF THE PROGRAM 


: 69$ : 


INC 
BNE 
TYPE 
BR 

. AS C I Z 


*-1 
68 $ 

ill* 

<CRLF>BCZRNAAO 


IF FIRST PASS 
.-.-FIRST TIME? 
.-.-BRANCH IF NO 
.-.-TYPE ASCIZ STRING 
;jMS|T OVER THE ASCIZ 


PERFORMANCE EXERCISER8<CRLF> 




.SBTTL 

GET VALUE FOR SOFTWARE 

SWITCH REGISTER 

000042 


TST 

B042 

.-.-ARE WE RUNNING UNDER XXDP/ ACT 



BNE 

70$ 

..-BRANCH IF YES 

001226 

000001 


CMP8 

$ENV,#1 

.-.-ARE WE RUNNING UNDER APT? 


BEQ 

70$ 

;; BRANCH IF YES 

001154 

000176 


CMP 

SWR,#SWREG 

.-.-SOFTWARE SWITCH REG SELECTED? 


BNE 

GTSWR 

BR 

H0V8 

71$ 

71$ 

#1 .SAUT08 

;;8RANCH IF NO 

.-.-GET SOFT-SWR SETTINGS 



000001 

001150 

70$: 

.-.SET AUTO-MODE INDICATOR 


71$: 

.-THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
.-PAPER TAPE (MANUAL), ACT11 . XXDP CHAIN OR DUMP 


001444 



CLR 

XXDP 

000016 

000041 


CMPB 

#16.B#41 




BNE 

3$ 

000040 

001444 


MOV 

a*40.XXDP 

000007 

001444 


CMPB 

#7, XXDP 




BHIS 

1$ 

001444 



CLRB 

XXDP 

000042 


1$: 

TST 

m 2 




BEO 

2$ 

004212 



TYPE 

.73$ 




BR 

tes 



:;7 3$: 

.ASCIZ 

<CRLF>/NOT 









CLR 

-<SP) 

001444 



M0V8 

XXDP, (SP) 




TYPOS 





.BYTE 

1 




.BYTE 

0 

001203 



TYPE 

.$CRLF 




BR 

is 


.-CLEAR •XXDP* LOAD DEVICE STORAGE 
.-LOADED FROM AN RM80 ? 

> gp if nqt 

‘GET DEVICE INDICATOR AND NUMBER 
;IS IT A VALID NUMBER ? 

;VES 

;N0. DEFAULT TO DRIVE 0 
.-CHAIN MODE OR ACT11 AUTO ACCEPT ? 
;BR IF NEITHER 
.-.-TYPE ASCIZ STRING 
.-.-GET OVER THE ASCIZ 
TESTING DRIVE / 


CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE THE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
CR-LF 

GET NUMBER OF DRIVES 





5 


SEQ 0062 


FIRST TIME THRU HERE ? 
NO 


;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
r DRIVE / 


; CLEAR WORD ON STACK 
;GET DRIVE ADDRESS 
.-TYPE DRIVE ADDRESS 
.-ONLY 1 CHARACTER 
,‘SUPRESS LEADING ZEROS 
;;TYPE ASCIZ STRING 
; ; GET OVER THE ASCIZ 

, CLEAR LOC. 40 AND RESTART PROGRAM. /<CRLF> 

.-TURN ON THE KEYBOARD INTERRUPT 
.‘RUN UNDER APT MODE 
;N0. DO NOT BOTHER 
.-NEW VECTOR ? 

.‘NOT LOAD IF * 0 
;NEU VECTOR 
;NEU BASE ADDRESS ? 

;NQ 

.-NEW BASE ADDRESS 


RUNNING IN AUTO MODE ? 

YES 

CHECK RM/RH BUS ADDRESS 

LOAD ADDRESS INTO DRIVER 
LOAD VECTOR INTO DRIVER 
CLEAR PERFORMANCE SUMMARY TYPEOUT FLAG 
START OF AREA TO CLEAR 

LOOK FOR END OF CLEAR AREA 

BR IF NOT FINISHED 

SETUP THE STACK POINTER 

CLEAR THE PROCESSOR STATUS WORD 

RESTORE ONE SECOND COUNTER VALUE 

CLEAR THE HOUR'S COUNTER 

CLEAR THE MINUTE'S COUNTER 

CLEAR THE SECOND'S COUNTER 

CLEAR INTERVAL COUNTER 

SET 'T' t CLEAR 'R' OR '«' COMMAND FLAG 

CLEAR THE 'CONTROL C' FLAG 

RESET SFIRST FLAG FOR DRIVE 0 

RESET SFIRST FLAG FOR DRIVE 1 

RESET SFIRST FUG FOR DRIVE 2 

RESET SFIRST FLAG FOR DRIVE 3 

RESET SFIRST FLAG FOR DRIVE 4 

RESET SFIRST FLAG FOR DRIVE 5 

RESET SFIRST FLAG FOR DRIVE 6 

RESET SFIRST FLAG FOR DRIVE 7 

ASSUME READ/WRITE CONDITION 

IS EXERCISER IN 'READ ONLY' MODE ? 

BR IF NO 


r 
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SEQ 0063 


107 004652 

108 004656 

109 
111 
112 
113 


005237 001440 


8 $: 


INC 


RDONLV 


.-LOCK PROGRAM IN 'READ ONLY' MODE 


;AUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS 
.JUMPERED FOR 22 OR 3? REGISTERS 


131 


145 

146 

147 

148 

149 


004656 

005037 

040316 

001234 

SIZE 70: 

CLR 

004662 

042737 

174000 


BIC 

004670 

013746 

000004 



MOV 

004674 

012737 

004746 

000004 


MOV 

004702 

013700 

001272 



MOV 

004706 

062700 

000050 



ADD 

004712 

012701 

000012 



MOV 

004716 

005720 




TST 

004720 

005720 




TST 

004722 

012737 

000050 

040316 


MOV 

004730 

005720 



IS: 

TST 

004732 

005301 




DEC 

004734 

001375 




BNE 

004736 

012737 

000074 

040316 


MOV 

004744 

000403 



2S: 

BR 

004746 

012716 

004754 


MOV 

004752 

000002 




RTI 

004754 

013700 

001272 


3S: 

MOV 

004760 

013701 

040316 



MOV 

004764 

001415 




BEO 

004766 

060001 




ADD 

004770 

052710 

001400 



BIS 

004774 

022711 

000003 



CMP 

005000 

001007 




BNE 

005002 

005011 




CLR 

005004 

033710 

001400 



BIT 

005010 

001003 


001234 


BNE 

005012 

052737 

030000 


BIS 

005020 

012637 

000004 


4S: 

MOV 


RHEXi 

#1 74000. SCPUOP 

ERRVEC.-(SP) 

#2S.ERRVEC 

SRMADR.RO 

#50. RO 

#10. ,R1 

(ROH 

<R0>* 

#50,RHEXT 

(RO)* 

R1 

1 $ 

#74.RHEXT 

3$ 

#3$.(SP) 


.•CLEAR RMBAE OFFSET 

.•CLEAR CPU TYPE REGISTER 

.-SAVE CONTENTS OF ERROR VECTOR 

.-SETUP 'TRAP 1 RETURN ADDRESS 

.GET RMCS1 ADDRESS 

.-GET REGISTER OFFSET FOR RH70 

.-GET NUMBER OF REGISTERS TO CHECK 

.-TRAP IF NOT A VALID RMBAE 

.•TRAP IF NOT A VALID RMCS3 

.-LOAD OFFSET FOR RMBAE (22 REGISTER RH) 

.•TRAP IF NOT A VALID REGISTER 

;DONE WITH ALL 32 REGISTERS ? 

;BR IF NO 

.•LOAD OFFSET FOR RMBAE (32 REGISTER RH) 
; SETUP RETURN ADDRESS 


SRMADR.RO 
RHEXT.R1 

4S 

R0.R1 

#A17.'A16, (R0> 
#3.(R1> 

4$ 

(R1) 

A17IA16, (RO) 

4$ 

#8IT13!BIT12.SCPU0P 
<SP) *,ERRVEC 


GET RMCS1 REGISTER 

GET RMBAE REGISTER OFFSET 

BR IF NONE 

GET RMBAE REGISTER 

SET EXTENDED ADDRESS BITS IN RMCS1 

ARE THE EXTENDED BITS SET IN RMBAE ? 

BR IF NO 

CLEAR EXTENDED ADDRESS BITS 'N RMBAE 
ARE THE EXTEND BITS CLEAR IN RMCS1 ? 
BR IF NO 

;SET THE 11/70 CPU TYPE COOE 
RESTORE CONTENTS OF ERROR VECTOR 


ROUTINE TO DETERMINE BUFFER MAX WORD COUNT AND FUDGE HDA SERIAL NUMBER 
TO ALLOW BAD SECTOR FILE(DEC144> TO BE READ FROM EACH DRIVE AT 
LEAST ONE TIME. 


150 005024 

005227 

177777 


SIZMEM: 

INC 

151 005030 

001027 




BNE 

152 005032 

012700 

177777 



MOV 

155 005036 

010037 

045562 



MOV 

005042 

010037 

047776 



MOV 

005046 

010037 

052212 



MOV 

005052 

010037 

054426 



MOV 

005056 

010037 

056642 



MOV 

005062 

010037 

061056 



MOV 

005066 

010037 

063272 



MOV 

005072 

010037 

065506 



MOV 

156 005076 

004737 

100542 



JSR 

157 005102 

013737 

100672 

001334 


MOV 

158 005110 

012737 


001654 

IS: 

MOV 

159 005116 

012737 

102200 

001656 


MOV 

160 005124 

013737 

001334 

001660 


MOV 


#-1 

IS 

RO,6rIVEO*SHSNM 

RO . DRI VE 1 ♦SHSNM 

R0.DRIVE2+SHSNM 

R0.DRIVE3*SHSNM 

RO. DRIVED SHSNM 

R0.DRIVE5*SHSNM 

R0,DRIVE6*$HSNM 

RO, DRIVE /♦SHSNM 

PC.SSIZE 

SLSTAD.LSTAD 

#1,BUFTBL 

#ENDPGM,8UFTBL*2 

LSTAD.BUFTBL+4 


; FIRST TIME THRU HERE ? 

;BR IF NO 

.•FUDGE MSB'S FOR INITIALIZING HDA S/N 

;INIT. S/N FOR DRIVE 0 

,*INIT. S/N FOR DRIVE 1 

; INI T - S/N FOR DRIVE 2 

UNIT. S/N FOR DRIVE 3 

UNIT. S/N FOR DRIVE 4 

UNIT. S/N FOR DRIVE 5 

UNIT. S/N FOR DRIVE 6 

UNIT. S/N FOR DRIVE 7 

.-SEE HOW MUCH MEMORY ON SYSTEM 

.-SAVE THE LAST ADDRESS 

.-LOAD NUMBER OF BUFFERS 

.‘STARTING ADDRESS OF BUFFER 
.•LAST ADDR TO BUFFER ALLOCATION TABLE 


l 

L 


m 5 


SEQ 0064 
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161 005132 

162 005140 

163 005142 

164 005150 

165 005156 

166 005160 

167 005164 

168 005172 

169 005176 

170 005200 

171 005206 

172 005214 

173 005216 

174 005224 

175 005232 

176 

177 

178 

179 005232 

180 005236 

184 005244 

185 005250 

186 005252 

187 005260 

188 005262 

189 005266 

190 

191 005270 

192 005274 

193 005300 

194 005302 

195 005304 
1% 005310 

197 005312 

198 005314 

199 005316 

200 005322 

201 005324 

202 005330 

203 005332 

204 005336 

205 005340 

206 005344 

207 005346 

208 005352 

209 005354 

210 

211 005360 

212 005364 

213 005366 

214 005370 

215 005374 

216 005376 

217 005400 

218 005402 

219 005406 

220 005410 


023727 

101403 

012737 

162737 

000241 

006037 

162737 

105737 

001403 

162737 

023737 

003406 

013737 

013737 


001334 

160000 


CMP 

LS TAD. #160000 



BLOS 

2$ 

160000 

001660 


MOV 

#160000.BUFTBL+4 

102200 

001660 

2$: 

SUB 

CLC 

ROR 

#ENDPGM.BUFTBL*4 

001660 



BUFT8L+4 

000144 

001660 


SUB 

#100. .BUFTBLK 
SAUTOfi 

001150 



TSTB 



BEQ 

3$ 

003000 

001660 


SUB 

#1536. .BUFTBL+4 

001462 

001660 

3$: 

CMP 

WRDCNT.BUFTBL+4 



BLE 

4$ 

001660 

001462 


MOV 

BUF T8L+4.WRDCNT 

001462 

077470 


MOV 

WRDCNT.PARLST+2 


4$: 


;OVER 28K ? 

;N0 

;XXDP MAX MEMORY 28K 
.'SUBTRACT PROGRAM SPACE 
.'CLEAR THE ’C* BIT 
.•CONVERT TU WORD COUNT 
.-SAVE ROOM FOR THE ’ABS* LOADER 
.’RUNNING IN AUTO RODE ? 

;8R IF NO 

.-SUBTRACT ’XXDP* LOADER SIZE 
; IS MAX WORD COUN r TOO LARGE ? 

;BR IF NO 

;USE MAX AVAIL MEMORY AS MAX WRD CNT 
.-VALUE FOR THE PARAMETER TABLE 


.'SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 


005737 

037716 

LKPAR: 

TST 

PWRFLG 

001154 



BNE 

SETVEC 

105737 

001150 


TSTB 

SAUT08 

001407 



BEO 

1$ 

032777 

000004 173674 


BIT 

#SW02,8SWR 

001003 



BNE 

1$ 

104401 

076674 


TYPE 

.FEONLY 

000466 



BR 

fit 

005037 

001340 

1$: 

CLR 

CFLAG 

104401 

076562 


TYPE 

.MESFE 

104411 



RDLIN 


012600 



MOV 

(SPH.RO 

005737 

001340 


TST 

CFLAG 

001350 



BNE 

LKPAR 

105710 



TSTB 

(RO) 

001451 



BEO 

7J 

105760 

000001 


TSTB 

1(R0) 

001006 



BNE 

2$ 

122710 

000131 


CMP8 

f'Y.(RO) 

001443 



BEO 

7$ 

122710 

000116 


CMPB 

#'N.(RO) 

001403 



BEQ 

3$ 

104401 

076341 

2$: 

TYPE 

.8ADENT 

000732 



BR 

LKPAR 

005737 

001440 

3$: 

TST 

RDONLY 

001002 



BNE 

4$ 

104401 

076756 


TYPE 

.OVRWRT 

104401 

076646 

4$: 

TYPE 

.SURE 

104411 



RDLIN 


012600 



MOV 

(SPI+.RO 

005737 

001340 


TST 

CFLAG 

001316 



BNE 

LKPAR 

105710 



TSTB 

(RO) 

001417 



BEO 

7$ 

105760 

000001 


TSTB 

1(R0) 

001006 



BNE 

5$ 

122710 

000131 


CMPB 

#'Y,(R0) 


RETURNING FROM POWER FAIL ? 

BRANCH IF YES 
RUNNING IN AUTO MODE ? 

BR IF NO 

DOES USER WANT MANUAL INTERVENTION 
BR IF YES 

TYPE FE CYLINDERS ONLY MESSAGE 


CLEAR CONTROL C FLAG 

TYPE 'EXERCISER FE CYLINDERS ONLY ?' 

READ THE ENTRY 

SAVE ADDRESS OF RESPONSE 

WAS IT CONTROL C ? 

BR IF YES 

WAS RESPONSE A CARR1A6E RETURN ? 

BR IF YES 

WAS IT TERMINATED WITH CARRIAGE RETURN ? 
BR IF NO 

WAS IT A 'Y* RESPONSE ? 

BR iF YES 

WAS IT A 'N' RESPONSE ? 

BR IF YES 

TYPE BAD ENTRY MESSAGE 
TRY AGAIN 

PROGRAM RUNNING IN READ ONLY MODE ? 

BR IF YES (DO NOT TYPE OVERWRITE MESSAGE) 
TYPE DATA OVERWRITE MESSAGE 

TYPE 'ARE YOU SURE ?' 

READ THE ENTRY 

SAVE ADDRESS OF RESPONSE 

WAS IT CONTROL C ? 

BR IF YES 

WAS RESPONSE A CARRIAGE RETURN ? 

BR IF YES 

WAS IT TERMINATED WITH CARRIAGE RETURN ? 
BR IF NO 

WAS IT A 'Y' RESPONSE ? 
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221 

005414 

001406 




BEQ 

6$ 

#'N.(RO> 

BR IF YES 

WAS IT A 'N* RESPONSE ? 

222 

005416 

122710 

000116 



CMPB 

223 

005422 

001406 




BEQ 

7$ 

BR IF YES 

224 

005424 

104401 

076341 


5$: 

TYPE 

.BADENT 

is 

TYPE BAD ENTRY MESSAGE 

225 

005450 

000746 




BR 

TRY AGAIN 

226 

005432 

005237 

001434 


6$: 

INC 

FEFLAG 

EXERCISE THE ENTIRE DISK 

227 

005436 

000402 




BR 

8$ 


228 

229 

230 

005440 

104401 

076674 


7$: 

TYPE 

,FEONLY 

TYPE FE CYLINDER ONLY MESSAGE 

005444 

005737 

001440 


8$: 

TST 

RDONLY 

IS PROGRAM LOCKED IN "READ MODE*' ? 

231 

005450 

001402 




BEQ 

9$ 

BR IF NO 

232 

233 

234 

005452 

104401 

077131 



TYPE 

.MREAD 

TYPE READ ONLY MESSAGE 

005456 

005037 

001340 


9$: 

CLR 

CFLAG 

CLEAR CONTROL C FLAG 

235 

005462 

105737 

001150 



TSTB 

SAUTOB 

RUNNING IN AUTO MODE ? 

2S6 

005466 

001040 




BNE 

SETVEC 

BR IF YES 

237 

005470 

104401 

077576 



TYPE 

.ASKPAR 

TYPE ’CHANGE PARAMETERS ?’ 

238 

005474 

104411 




RDLIN 


READ THE ENTRY 

239 

905476 

012600 




MOV 

<SP)+, RO 

SAVE ADDRESS OF RESPONSE 

240 

905500 

005737 

001340 



TST 

CFLAG 

WAS IT CONTROL C ? 

241 

005504 

001364 




BNE 

9$ 

BR IF YES 

242 

005506 

105710 




TSTB 

(RO) 

WAS RESPONSE A CARRIAGE RETURN (DEFAULT 

243 

005510 

001427 




BEQ 

SETVEC 

BR IF YES 

244 

005512 

105760 

000001 



TSTB 

1(R0) 

WAS IT TERMINATED WITH CARRIAGE RETURN 

245 

005516 

001006 




BNE 

105 

BR IF NO 

246 

005520 

122710 

000131 



CMPB 

f'Y.(RO) 

ENTPR 

WAS IT A , Y* RESPONSE ? 

247 

005524 

001406 




BEQ 

BR IF YES 

248 

005526 

122710 

000116 



CMPB 

f'N.(RO) 

WAS IT A *N* RESPONSE ? 

249 

005532 

001416 

076341 


101: 

BEQ 

SETVEC 

BR IF YES 

250 

005534 

104401 


TYPE 

.BADENT 

$S 

TYPE BAD ENTRY MESSAGE 

251 

252 

253 

005540 

000746 




BR 

TRY AGAIN 

005542 

012703 

077466 


ENTPR: 

MOV 

APARLST.R3 

PARAMETER TABLE ADDRESS 

254 

005546 

004737 

031030 



JSR 

PC. PARENT 

GET THE PARAMETER ENTRY 

255 

005552 

023727 

001462 

000006 


CMP 

WRDCNT, #6 

IS THE 'WRDCNT' VALUE OK ? 

256 

005560 

103003 




BHIS 

SETVEC 

BR IF IT IS 

257 

258 

259 

005562 

012737 

000006 

001462 


MOV 

#6, WRDCNT 

SET 'WRDCNT' TO THE MINIMUM VAlUE 





; DISPLAY DRIVE 

STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT 

260 
261 
2 62 





;THE PROGRAM WILL USE. PROGRAM RETURN HERE ON POWER FAIL 

005570 

004737 

023422 


SETVEC: 

JSR 

PC.CKCLK 

START THE CLOCK 

263 

005574 

004737 

040322 



JSR 

PC.RMINIT 

#-1.SAVEFG 

INITIALIZE THE RM DRIVER 

264 

005600 

012737 

177777 

040252 


MOV 

SET THE SAVE REGISTERS FLAG 

265 

005606 

005227 

177777 



INC 

f-1 

FIRST TIME THRU ? 

266 

005612 

001407 




BEQ 

IS 

BR IF YES 

267 

005614 

005737 

037716 



TST 

PWRFLG 

RETURNING FROM POWER FAIL ? 

268 

005620 

001004 

032777 




BNE 

IS 

BRANCH IF YES 

269 

005622 

000004 

173324 


BIT 

#SW02,aSWR 

TYPEOUT THE DRIVE STATUS TABLE ? 

270 

005630 

001066 




BNE 

12S 

BR IF NOT 

271 

005632 

005004 



IS: 

CLR 

R4 

DRIVE TABLE POINTER 

272 

005634 

104401 

075501 



TYPE 

.SYSTAT 

TYPE STATUS HEADING 

273 

005640 

104401 

001203 


2S: 

TYPE 

.SCRLF 

CR-LF 

274 

005644 

010446 




NOV 

R4.-(SP) 

;SAVE R4 FOR TYPEOUT 
.TYPE DRIVE NUMBER 


005646 

104403 




TYPOS 


;G0 TYPE-OCTAL ASCII 


005650 

002 




.BYTE 

2 

.TYPE 2 DIGIT(S) 


B 



SEQ 0066 


.-.SUPPRESS LEADING ZEROS 
; TYPE A BLANKS 
.-CHECK DRIVE’S STATUS 
;BR IF UNSAFE 
;BR IF ONLINE 

.SEE IF OFFLINE OR NONEXISTENT 
;BR IF NONEXISTENT 
;BR IF OFFLINE 
.-DRIVE NOT AN RM80 
; CHECK NEXT DRIVE 

.-DRIVE NOT PRESENT 
.-CHECK NEXT DRIVE 

.-DRIVE OFFLINE 
.-PRINT DRIVE TYPE 

.-DRIVE UNSAFE 
.-PRINT DRIVE TYPE 

.-LOADED FROM THIS DEVICE ? 

‘8R IF NO 

-LOADED FROM THIS DRIVE ? 

.do rc mo 

•TYPE ’LOAD DEVICE’ 

.-DRIVE ONLINE 
.-TYPE 2 BLANKS 

.-ASSUME ADDRESS CF RM80 MESSAGE 

.-TYPE THE DRIVE TYPE MESSAGE 
.-MESSA6E ADDRESS HERE 

.-INCREMENT DRIVE NUMBER/ TABLE POINTER 
; FINISHED ? 

;8R IF NOT 
.-CR-LF 



C 6 


SEG 0067 
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.•INITIALIZE PROGRAM PARAMETERS FOR STARTUP 


3 006006 

4 006012 

5 006020 

6 006026 

7 006032 

8 006034 

9 006042 

10 006050 

11 

12 006056 

13 006062 

14 006064 

15 006070 

16 

17 006072 

18 006074 

19 006076 

20 006100 

21 006104 

22 006106 

23 006112 

24 006114 

25 006120 

26 006122 

27 006126 

28 006132 

29 006136 

30 006142 

31 006146 

32 006152 

33 006156 

34 006162 

35 006166 

36 006172 

37 006174 

38 006202 

39 

40 006206 

41 006210 

42 006212 

43 006216 

44 006220 

45 006224 

46 

47 006226 

48 006234 


004737 
012737 
012737 
105737 
001411 
012737 
01 **737 
012737 

105737 

001003 

005737 

003456 

005001 

005002 

005003 

005737 

001403 

123701 

001435 

105761 

0C3432 

110137 

016300 

004737 

004737 

004737 

004537 

010062 

004737 

005060 

005737 

001005 

112760 

004737 

022322 

005201 

020127 

003730 

005037 

000403 

012737 

005037 


033326 

002740 

005455 

001226 

000001 

077777 

00O027 

001150 

001336 


001444 

001444 

040164 

067556 

002056 

015624 

026630 

027550 

027650 

001566 

027054 

000124 

037716 

177776 

017000 


000007 

001336 


000001 

037716 


001446 

001450 


001476 

001446 

001450 


PC.STKINT 


.-INITIALIZE THE KEYBOARD INTERRUPT HANDIER 


000026 


CLR 

CLR 

CLR 

TST 

BEQ 

CMPB 

BEQ 

TSTB 

BLE 

nova 

MOV 

JSR 

JSR 

JSR 

JSR 

MOV 

JSR 

CLR 

TST 

BNE 

MOVB 

JSR 


#06274Q.FNDC0N -INITIALIZE XFER COUNT (LS8) 
#005455, ENDCON+2 


001340 


#005455. ENDCON 

$ENV 

IS 

#1 RATIO 
#77777. ENDCON 
#27, ENDCON+2 

SAUTOB 

2 $ 

CHGADR 

8 $ 

R1 

18 

XXDP 

4$ 

XXDP.R1 

7$ 

DRVSTA(RI) 

7$ 

R1.6ENDPB 

BLKADRCR3) ,R0 

PC.RECAIO 

PC.CLRDPS 

PC.6ETID 

R5.GETADR 

R0,N€WUNT(R2> 

PC.DRVPRM 

SflRST(RO) 

PWRFLG 

7 % 

#-2,$PACK(R0) 

PC.WRTPK 

<R3)MR2>* 

R1 

R1,#7 

3$ 

CHGADR 

#1 .CFLAG 
PWRFLG 


.-APT SCRIPT MODE, THEN MAKE IT RUN 2 MIN. 
;N0 

; SPEED UP TEST 

.'INITIALIZE QUICK XFER COUNT(LSB) 


RUNNING IN AUTO MODE ? 

BR IF YES 
START AT 200 ? 

NO 

DRIVE # 

AVAIL TABLE INDEX 
DRIVE# • 2 

LOADED FROM THIS DEVICE ? 

BR IF NO 

LOADED FROM THIS DRIVE ? 

BR IF YES 
DRIVE ON LINE ? 

NO 

GET DRIVE NUMBER 

LOAD DP8 ADDRESS 

RECALIBRATE DRIVE 

CLEAR DPB BLOCK 

6ET DRIVE (MBA) SERIAL NUMBER 

RETRIEVE BAD SECTOR FILE 

LOAD DPB ADDRESS TO ABA1L QUEUE 

SETUP DRIVE PARAMETER LIMITS 

RESET SFIRST FLAG FOR FIRST 204 START 

RETURNING FROM POWER FAIL ? 

BRANCH IF YES 

SETUP COMMAND ’WT‘ (WRITE DATA AND TEST) 
SETUP INITIAL PARAMETERS 

INCREMENT INDEX 
NEXT DRIVE 

ALL DRIVES ASSIGNNED ? 

NO 

CLEAR START FLAG 


.'DUMMY ‘CONTROL C FLAG 
.'CLEAR POWER FAIL FLAG 
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3 006240 

4 006244 

5 006246 

6 006252 

7 006254 

8 006260 
9 006264 

10 

11 

12 

13 006266 

14 006272 

15 006276 

16 006300 

17 006302 

18 006304 

19 006306 

20 006310 

21 

22 006312 

23 006316 

24 006320 

25 C06322 

26 006324 

27 006326 

28 006330 

29 

30 006332 

31 006336 

32 006340 

33 006342 

34 006344 

35 006346 

36 006350 

37 

38 006352 

39 006354 

40 006360 

41 006364 

42 006370 

43 006374 

44 006376 

45 006402 


005737 

001407 

005737 

001402 

000137 

004737 

000240 


012703 

012705 

005715 

001004 

005725 

005303 

001373 

000435 

012701 

005711 

001404 

021115 

001412 

005721 

000772 

012701 

005711 

001760 

021115 

001402 

005721 

000772 

011100 

104401 

104401 

004737 

104401 

005015 

00*737 

000737 


001340 

001520 

007104 

025254 


000010 

001544 


001610 


001632 


001203 

076003 

023714 

075617 

020750 


MAIN: 

TST 

CFLAG 


BEQ 

3S 

IS: 

TST 

ORDERQ 


BEQ 

2S 


JMP 

IDLE 

2S: 

JSR 

PC.KSR 

3S: 

NOP 


.•CHECK 

FOR DRIVES TO BE D* 

MAINDA: 

MOV 

#8.,R3 

MOV 

#DDRVS,R5 

IS: 

TST 

(R5) 


BNE 

3S 

2S: 

TST 

<R5>* 


DEC 

R3 


BNE 

IS 


BR 

MAIN1 

3S: 

MOV 

fAVAIL.RI 

4S: 

TST 

(R1) 


BEQ 

5S 


CMP 

(R1).(R5) 


BEQ 

7S 


TST 

<R1>+ 


BR 

4S 

5S: 

MOV 

fUAIT.RI 

6$: 

TST 

(R1) 


BEQ 

2S 


CMP 

(R1),(R5) 


BEQ 

7S 


TST 

<R1>* 


BR 

6S 

7S: 

MOV 

<R1),R0 


TYPE 

,SCRLF 


TYPE 

.DEASSG 


JSR 

PC .SUMARY 


TYPE 

.STARS 


CLR 

(R5) 


JSR 

PC.CMPRES 


BR 

2S 


.-LOOK FOR DRIVES TO BE ASSIGNED 


49 006404 

012703 

000010 

MAIN1 : 

MOV 

*8. ,R3 

50 006410 

005001 



CLR 

R1 

51 006412 

005002 



CLR 

r? 

52 006414 

005005 



CLR 

R5 

53 006416 

005765 

001566 

IS: 

TST 

NEUUNT (R5) 

54 006422 

001005 



BNE 

3S 

55 006424 

005725 


2S: 

TST 

(R5)+ 

56 006426 

005201 



INC 

R1 

57 006430 

005303 



DEC 

R3 


SEQ 0068 


KEYBOARD INTERRUPTED ? 

BR IF NOT 

ANY DRIVES IN ORDER QUE ? 

BR IF NO, ELSE 
LET ALL DRIVES FINISH ORDER 
SERVICE THE KEYBOARD 
! ! FOR DEBUGGING !! 


DRIVE COUNTER 

ADDRESS OF 'DROP DRIVE' TABLE 

SEE IF ENTRY AT PRESENT POSITION 

BR IF THERE IS ONE 

INCREMENT TO NEXT TABLE POSITION 

DECREMENT DRIVE COUNTER 

BR IF MORE TO CHECK 

GO CHECK FOR NEU ASSIGNED DRIVES 

ADDRESS OF 'AVAILABLE DRIVES' TABL F 
IF AT END OF 'AVAIL* TABLE ? 

BR IF YES 

IS DRIVE IN 'AVAIL' THE TABLE ? 

BR IF YES 

NO, INCREMENT 'AVAIL' TABLE ADDRESS 
AND CONTINUE LOOKING 

ADDRESS OF THE 'WAIT' BUFFER TABLE 
AT THE END OF 'WAIT' TABLE ? 

BR IF YES 

IS DRIVE IN THE 'WAIT' TABLE ? 

BR IF YES 

NO, INCREMENT 'WAIT* TABLE ADDRESS 
AND CONTINUE LOOKING 

PUT THE DRIVE'S BLOCK ADDRESS IN RO 
CR-LF 

TYPE 'DRIVE DEASSIGNED* 

TYPE THE DRIVE'S PERFORMANCE SUMMARY 
TYPE '****. ..ETC’ 

CLEAR THE 'DROP DRIVE* TABLE ENTRY 
COMPRESS THE RESPECTIVE TABLE 
SEE IF ANY MORE DRIVES 


DRIVE COUNT 
ASSIGN LIST INDEX 
'AVAIL' INDEX 
NEU DRIVE INDEX 
NEU DRIVE IN THIS POSITION 
BR IF THERE IS 
INCREMENT R5 
INCREMENT ASSIGN INDEX 
DECREMENT DRIVE COUNT 
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58 006432 

59 006434 

60 

61 006436 

62 006442 

63 006446 

006450 

006452 

006453 

64 006454 

65 006460 

66 006464 

67 006466 

68 006470 

69 006472 

70 006500 

71 006504 

72 006512 

73 006516 

74 006520 

75 

76 

77 

78 


81 


91 

92 


95 


101 


105 


001371 

000432 

104401 001203 
104401 075304 

010146 

104403 
00 2 
000 

104401 076053 
005762 001610 
001402 
005722 
000773 

016562 001566 001610 
005065 001566 
156137 040300 001542 
005037 032012 
005722 
000741 


3$: 


4$: 

5S: 


8NE 

BR 

TYPE 

TYPE 

MOV 

TYPOS 

• BYTE 

.BYTE 

TYPE 

TST 

BEQ 

TST 

BR 

MOV 

CLR 

BISS 

CLR 

TST 

BR 


1$ 

MAIN2 

.SCRLF 

.UNTMSG 

RI.-(SP) 


2 

0 

,ASGND 
AVAIL (R2> 

5$ 

(R2> + 

4$ 

NEWUNT(R5) 
NEWUNT (R5) 
ATABIT(RI) 
AUTLST 
(R2) + 

21 


E 6 


.DO It HflQC hP(UCC 

•START OPERATIONS FOR THE AVAILABLE DRIVES 

; CR-LF 
;• DRIVE* 

; ; SAVE R1 FOR TYPEOUT 
;;TY PE DRIVE NUMBER 
; ;G0 TYPE— OCTAL ASCII 
;;TYPE 2 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 
.-'STARTED' 

;AT END OF AVAILABLE TABLE 
*BR IF YES 

‘INCREMENT AVAILABLE TABLE INDEX 
.-CONTINUE LOOKING FOR END OF TABLE 
.AVAIL (R2) ;MOVE ADDR OF DRIVE INTO AVAIL LST 
•TAKE DRIVE OUT OF NEU DRIVE TABLE 
.ASNLSt ;SET DRIVE ASSIGNED INDICATOR 

CLEAR AUTO ASSIGN 
INCREMENT AVAILABLE TABLE POINTER 
LOOK FOR MORE DRIVES 


SEO 0069 


.GET PARAMETERS. BUFFER SPACE , 
.-THE 'AVAILABLE' QUEUE 


006522 

005002 



HAIN2: 

CLR 

R2 

006524 

105737 

001542 



TST8 

ASNLST 

006530 

001025 




8NE 

2% 

006532 

105737 

001150 



TST8 

SAUTOB 

006536 

001020 




BNE 

IS 

006540 

012737 

000001 

001340 


NOV 

fl.CFLAG 

006546 

013737 

001314 

001352 


MOV 

HZ. ONE SEC 

006554 

005037 

001344 



CLR 

HOUR 

006560 

005037 

001346 



CLR 

MINUTE 

006564 

005037 

001350 



CLR 

SECOND 

006570 

005037 

001466 



CLR 

INTRVL+2 

006574 

104401 

077103 



TYPE 

.NODRVS 

i6ET42 


000137 

031742 


IS: 

JMP 

006604 

005762 

001632 


2S: 

TST 

WAIT(R2) 

006610 

001435 




BEQ 

5S 

006612 

016200 

001632 



MOV 

WAIT (R2I.R0 

006616 

005046 




CLR 

-(SP) 


004737 

016242 



JSR 

PC.SET8UF 
(SP)+,S8UF (RO) 
4S 

tj$5§§ 

012660 

001423 

000006 



MOV 

BEQ 

006632 

005060 

000122 



CLR 

SNEXT(RO) 

006636 

005060 

004737 

000106 



CLR 

SFAIR(RO) 

006642 

016632 



JSR 

PC.FILBUF 

006646 

004737 

016710 



JSR 

PC.60DRIV 

#0RDERQ,R5 

006652 

012705 

001520 



MOV 

006656 

005725 



3$: 

TST 

<R5) + 

006660 

001376 




BNE 

3S 

006662 

010045 




MOV 

R0.-(R5) 

006664 

012701 

001632 



MOV 

fUAIT.RI 

006670 

006672 

060201 

004737 

02075C 



ADD 

JSR 

R2.R1 

PC.CMPRES 


AND JTART ORDERS FOR DRIVES IN 


START FROM THE FIRST LOCATION 
ANY DRIVES ACTIVE ? 

BR IF YES 

RUNNING IN AUTO MODE ? 

u if ycc 

DUMMY 'CONTROL C* FLA6 
RESTORE ONE SECOND COUNTER VALUE 
CLEAR THE HOUR'S COUNTER 
CLEAR m MINUTE'S COUNTER 
CLEAR THE SECOND'S COUNTER 
CLEAR INTERVAL COUNTER 
TYPE 'NO DRIVES ASSIGNED' 

GIVE CONTROL TO MONITOR 

ANY DRIVES WAITING FOR THE BUFFER ? 

BR IF NO 

LOAD RO WITH THE DP8 ADDRESS 
CLEAR THE STACK FOR BUFFER REQ 
CALL TO GET THE BUFFER RT. 

If 0.8UFFER IS STILL NO? AVAILABLE 

BRANCH IF NO BUFFER AVAILABLE 

CLEAR PARAMETER SELECT FLAG 

CLEAR THE FAIR FUG 

FILL THE BUFFER 

SET COMMAND AND GO 

PUT THE WAIT QUE INTO ORDER QUE 

QUE AVAILABLE ? 

BR IF NO 

LOAD THE DPB ADDRESS INTO THE ORDER QUE 
REMOVE THE DRIVE FROM THE 'WAIT* QUE 
OFFSET THE QUE POSITION 
COMPRESS THE QUE 


F 6 



BRANCH IF DONE 
CHECK THE NEAT QUE 
LOOPY’S BACK 

ANY OUTSTANDING ORDERS ? 

BR IF YES 

CLEAR DRIVE TABLE POINTER 

ANY DRIVES WAITING FOR PARAMETERS 

BRANCH IF ANY 

BRANCH IF NONE 

CONTROL BLOCK ADDR IN RO 

PARAMETERS BEEN SELECTED ? 

BR IF THEY HAVE 

•R' OR *W' COMMAND FOR THIS DRIVE ? 
BR IF NO 

GET DATA PARAMETERS 
GET THE BUFFER 


60 GENERATE THE PARAMETERS 

LOAD THE PARAMETERS JUST GENERATED 

MAKE ROOM ON THE STACK FOR THE BUFFER ADDR 

GET BUFFER 

MOVE BUFFER ADDR TO DP6 
BR IF ’O’ ADDR (NO BUFFER) 

FILL THE BUFFER 
CLEAR PARAMETER SELECT FLAG 
CLEAR THE 'FAIRNESS' COUNT 
PUT CURRENT DP8 IN DRIVER 
ADDRESS OF ORDER QUE IN R5 
END OF OUE ? 

BR IF NOT 

PUT BLOCK ADDRESS INTO OUE 
CONTINUE LOOKING 

INCREMENT THE FAIR COUNT 
THREE TJMES.8UFFER IS NOT AVAILABLE? 
BRANCH IF NOT OVER THREE TIMES 
LOAD INTO THE WAIT QUE 
AN AVAILABLE LOCATION ? 

BRANCH IF NOT 

LOAD INTO WAIT QUE 

REMOVE THE DP6 FROM AVAILABLE QUE 


INCREMENT INDEX 

BRANCH BACK TO FIRE NEXT DRIVE 

•available* table address 

FORM ADDRESS OF LAST ENTRY 
COMPRESS THE TABLE 
CONTINUE LOOKING 


SfcQ 0070 


ADDRESS OF THE ORDER QUE IN R1 
PUT BLOCK ADDRESS INTO RO 
BR IF END OF QUE 
SEE IF DRIVE FINISHED 



G 6 


SEQ 007i 
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168 007120 

169 007122 

170 007124 

171 007126 

172 007132 

173 007136 

174 007142 

175 007146 

176 007152 

177 007156 

178 007160 

179 007164 

180 007166 

181 007170 

182 007172 

183 007176 

184 

185 007202 

186 007210 

187 00^212 

188 007216 

189 007220 

190 007224 

191 007230 

192 007232 

193 007236 

194 007242 

195 007246 


001775 

005741 

010146 

004737 

004737 

C05060 

005037 

004737 

004737 

012601 

012705 

005725 

001376 

011145 

004737 

004737 

032777 

001016 

005737 

001413 

005037 

005*37 

001406 

104401 

004737 

104401 

000137 


016072 

007252 

000112 

001342 

031264 

031312 

001610 


020750 

016376 


000004 171744 4$: 

001316 

001316 

001542 

075525 

023626 

075566 

006240 5S 


21 

-(R1 / 

RI.-(SP) 

PC.STATIS 

PC.PROCES 

JSSENB(RO) 

BADSEC 

PC.ABNRNL 

PC.JEOP 

(SP>+, R1 

fAVAIL ,R5 

<R5> + 

3$ 

(R1),-(R5) 

PC.CMPRES 

PC.RELBUF 

#SW02.8SUR 

5S 

STATIN 

5$ 

STATIN 

ASNLST 

5* 

,REPHD 

PC.STATPR 

.STAR30 

MAIN 


BR IF DRIVE NOT FINISHED 

BACKUP THE QUE POINTER 

SAVE THE QUE ADDRESS 

ACCUMULATE STATISTICS FOR DRIVE IN RO 

PROCESS END OF COMMAND 

CLEAR SKIP SECTORING ENABLED 

CLEAR THE BAD TRK/SEC ERROR INDICATOR 

SEE IF ANY DRIVES HAVE TOO MANY ERRORS 

IS IT END OF PASS ? 

RESTORE THE ORDER TABLE INDEX 

ADDRESS OF THE 'AVAIL* TABLE 

IS IT THE END OF THE 'AVAIL' TABLE ? 

BR IF NO 

MOVE THE DP8 INTO THE 'AVAIL* TABLE 
COMPRESS THE ORDER QUE 
RESTORE BUFFER 

TYPE PERFORMANCE SUMMARY 
BR IF NOT 

TIME TO TYPE THE PERFORMANCE SUMMARY ? 
BR IF NOT 

CLEAR THE INDICATOR 
ANY DRIVES ASSIGNED ? 

BA IF NO 

TYPE PERFORMANCE REPORT HEADING 
TYPE THE SUMMARY 
TYPE ••****. ..ETC" 

CONTINUE THE LOOP 
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SEO 0072 


1 

2 


5 007252 

111037 

001324 


PROCES: MOVB 

4 007256 

005760 

000016 


TST 

5 007262 

100427 



BMI 

6 007264 

032760 

100000 

002140 

BIT 

7 007272 

001410 



BEQ 

8 007274 

032760 

040000 

002140 

BIT 

9 007302 

001017 



BNE 

10 007304 

032760 

040000 

002152 

BIT 

11 007312 

001013 



BNE 


12 

13 

14 


.PROCESS THE COMMAND TERMINATION 

(RO).DRVNO .'DRIVE NUMBER FOR ANY ERROR MESSAGES 
STATUS (RO) ;SEE IF DRIVER SiGNALED AN ERROR 
ERPROC :BR IF ERROR 

#8IT15.SRMCS1(R0) :SEE IF ’SC* SET 

IS ;8R IF N6T SET 

#8IT14.SRMCS1(R0) :SEE IF 'TRE* SET 

ERPROC ;BR IF SET 

#8IT14,SRMDS<R0) ;SEE IF ’ERR' SET 

ERPROC ;BR IF SET 

;N0 ERRORS DETECTED IN REGISTERS. DO SOME CHECKING ANYWAY 


15 

007314 

004737 

013062 

IS: 

J SR 

PC.CKERR 

.‘CHECK ERROR BITS 

16 

007320 

004737 

013154 


JSR 

PC.CK8US 

#SW01.iSWR 

.CHECK BUS ADDRESS t WORD COUNT 

17 

007324 

032777 

000002 

171622 

BIT 

.'DO DATA COMPARE ? 

18 

007332 

001002 



BNE 

2S 

;BR IF NO 

19 

007334 

004737 

013240 


JSR 

PC.CMPAR 

.‘COMPARE DATA W/0 ERROR 

20 

007340 

000207 


2S: 

RTS 

PC 

.'RETURN 


21 

22 

23 

24 007342 

25 007350 

26 007352 

27 

28 

29 

30 007356 


.'COMMAND TERMINATED WITH AN ERROR - PROCESS THE ERROR 


032760 

001402 

000137 


000200 

007550 


000016 


ERPROC: BIT 
BEO 
JMP 


#81 T07, STATUS (RO) .DONE BIT SET ? 

ERPRC1 ;BR IF COMMAND DIDN'T COMPLETE NORMALLY 

DONE .PROCESS ERROR WITH 'DONE' BIT SET 


39 007356 

032760 

001000 

000016 

BIT 

40 007364 

001011 



BNE 

41 007366 

032760 

040002 

000016 

BIT 

42 007374 

001024 



BNE 

43 007376 

032760 

000004 

000016 

BIT 

44 007404 

001042 



BNE 

45 007406 

000207 



RTS 


.'PROCESS COMMAND COMPLETION WITH 'ERROR' l 'DONE NOT' BITS 


#61 T09. STATUS (RO) .'TIMEOUT? 

SWTIM *BR IF YES 

#8IT14!BIT01,STAtuS(R0> .DRIVE WENT OFFLINE ? 
OFLIN ;8R IF IT DID 

#8IT2,STATUS(R0) ;PORT REQUEST TIME OUT ? 


46 

82 

83 

84 


PRTIM 
PC 


.-SOFTWARE TIMEOUT OCCURRED 


;BR IF IT DID 
; ERROR. RETURN 


V"* 

85 

007410 

004737 

021134 

SWTIM: JSR 

jwr 

PC.LINE2 

86 

007414 

104414 

070307 

DISPLV 

87 

007420 

004737 

021214 

JSR 

88 

007424 

004737 

021654 

JSR 

PC. LINE 3 

89 

007430 

004737 

022324 

JSR 

PC.LINE4 

90 

007434 

004737 

024740 

JSR 

PC.INCTOT 

91 

007440 

004737 

022746 

JSR 

PC.LINE7 

92 

93 

94 

95 

96 

007444 

000207 


RTS 

PC 




.DRIVE WENT OFFLINE 

007446 

104401 

001203 

OFLIN: TYPE 

.SCRLF 

97 

007452 

004737 

021134 

JSR 

PC.LINE1 

98 

007456 

104414 

070361 

DISPLY 

,EM14 

99 

007462 

004737 

021214 

JSR 

PC.LINE2 

100 

007466 

004737 

021654 

JSR 

PC.LINE3 


PRINT LINE 1 OF 
PRINT THE TIME 
PRINT LINE 2 OF 
PRINT LINE 3 OF 
PRINT LINE 4 OF 
INCREMENT TOTAL 
PRINT LINE 7 OF 
RETURN 


ERROR MESSAGE 
OUT MESSAGE 
ERROR MESSAGE 
ERROR MESSAGE 
ERROR MESSAGE 
ERROR COUNT 
ERROR MESSAGE 


CR-LF 

PRINT LINE 1 OF THE ERROR MESSAGE 
PRINT OFFLINE MESSAGE 
PRINT LINE 2 OF THE ERROR MESSAGE 
PRINT LINE 3 OF THE ERROR MESSAGE 
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SEO 0073 


101 

007472 

004737 

022324 



JSR 

PC.LINE4 

PRINT LINE 4 OF THE ERROR MESSAGE 

102 

007476 

004737 

024740 



JSR 

PC.INCTOT 

INCREMENT TOTAL ERROR COUNT 

103 

007502 

004737 

02274* 



JSR 

PC.LINE7 

PRINT LINE 7 OF THE ERROR MESSAGE 

104 

105 

106 

107 

108 

007506 

000137 

0312U 



JMP 

DROP 

DROP THE DRIVE 





.PORT 

REQUEST 

TIMEOUT ERROR 


007512 

004737 

021134 


PRTIM: 

JSR 

PC.LINE1 

TVPE LINE 1 OF THE ERROR MESSAGE 

109 

007516 

104414 

070404 



DISPIV 

.EMI 5 , 

PRINT PORT TIME OUT MESSAGE 

112 

007522 

004737 

021214 



JSR 

PC.LINE2 

TVPE LINE 2 OF THE ERROR MESSAGE 

007526 

004737 

021654 



JSR 

PC.LINE3 

TVPE LINE 3 OF THE ERROR MESSAGE 


007532 

004737 

022324 



JSR 

PC.LINE4 

TYPE LINE 4 OF THE ERROR MESSAGE 

113 

007536 

004737 

024740 



JSR 

PC.INCTOT 

INCREMENT TOTAL ERROR COUNT 

114 

007542 

004737 

022746 



JSR 

PC.LINE7 

TYPE LINE 7 OF THE ERROR MESSAGE 

115 

116 

117 

118 
124 

007546 

000207 




RTS 

PC 

return 





.PROCESS COMMAND COMPLETION WITH 

•ERROR* t ’DONE* BITS SET 

007550 

032760 

000020 

000016 

DONE: 

BIT 

#81 T04 .STATUS (RO) ; UNSAFE OCCURRED 

125 

007556 

001402 




BEQ 

IS 

;SR IF NOT 

126 

127 

128 

007560 

000137 

012532 



JMP 

UNSAF 

REPORT UNSAFE 

007564 

032760 

040000 

002154 

IS: 

BIT 

#8IT14,$RMER1 (RO) .'UNSAFE OCCURRED 

129 

007572 

001402 




BEQ 

2 S 

;8R IF NOT 

130 

131 

132 

007574 

000137 

012532 



JMP 

UNSAF 

.•REPORT UNSAFE 

007600 

032760 

040000 

002150 

2S: 

BIT 

#8IT14,SRMCS2<R0) ;IS ’WCE* SET ? 

133 

007606 

001402 




BEQ 

3S 

.-BRANCH IF NOT SET 

134 

135 

136 

007610 

000137 

010546 



JMP 

WCKER 

.'WRITE CHECK ERROR 

007614 

032760 

040000 

002152 

3$: 

BIT 

#BIT14.$RMDS(R0) 

; CHECK ’ERR* 

;8R IF SET 

137 

007622 

001002 




BNE 

4$ 

138 

139 

140 

007624 

000137 

012272 



JMP 

TRFER 

.PROCESS ’TRE* 

007630 

032760 

000400 

002154 

4$: 

BIT 

#8IT08,*RMER1(R0) .'’HCRC* SET? 

141 

007636 

001402 




BEQ 

5S 

;BR IF NOT 

142 

143 

144 

007640 

000137 

011054 



JMP 

HCRCER 

.PROCESS ’HCRC* 

007644 

032760 

000020 

002154 

5$: 

BIT 

#8IT04,SRMER1 (RO) .•’EMT’ SET? 

145 

007652 

001402 




BEQ 

6S 

;BR IF NOT SET 

146 

147 

148 

007654 

000137 

011232 



JMP 

CKFMT 

.'CHECK FORMAT ERROR 

AO7660 

032760 

000200 

002154 

6$: 

BIT 

#BIT07,$RMER1 (RO) .-'HCr’ SET? 

145 

15' 

666 

G. VS70 

001402 

000137 

011406 



BEQ 

JMP 

7S 

CKHCE 

;8R IF NOT SET 
.CHECK ’HCE* ERROR 

t -r . 

152 

:*,674 

032760 

020000 

002154 

7$: 

BIT 

#81 T13.SRMER1 (RO) ;*OPr SET? 

153 

007702 

001402 




BEQ 

8S 

;8R If NOT SET 
.'REPORT *OPr 

154 

155 

156 

007704 

000137 

011666 



JMP 

OPIER 

007710 

032760 

000010 

002154 

8$: 

BIT 

#8IT3.SRMER1(R0) 

: ’PAR' SET? 

;BR IF NOT SET 
.REPORT 'PAR 1 

157 

007716 

001402 




BEQ 

9S 

158 

159 

160 

007720 

000137 

012014 



JMP 

PARER 

007724 

032760 

000040 

002154 

9S: 

BIT 

#tJIT5,*RMERKR0) 

; 'WCF ' SET? 

161 

007732 

001402 



BEQ 

;BR IF MT SET 
.•REPORT WCF* 

162 

007734 

000137 

012434 



JMP 

WCFER 
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SEQ 0074 


163 


167 


171 


175 

176 

177 


181 


185 


191 


194 

195 

196 


199 

200 
201 


207 


211 


007740 

032760 

002000 

002154 

10$: 

BIT 

007746 

007750 

001402 

000137 

012106 



BEQ 

JMP 

007754 

032760 

004000 

002154 

11$: 

BIT 

007762 

007764 

001402 

000137 

012140 



BEQ 

JMP 

007770 

032760 

001000 

002154 

12$: 

BIT 

007776 

001405 




BEQ 

010000 

032760 

002000 

002152 


BIT 

010006 

001401 




BEQ 

010010 

000207 




RTS 

010012 

032760 

010000 

002154 

13$: 

BIT 

010020 

001402 




BEQ 

010022 

000137 

011772 



JMP 

010026 

005760 

002154 


14$: 

TST 

010032 

100002 




BPL 

010034 

000137 

010072 



JMP 

010040 

032760 

040000 

002202 

15$: 

BIT 

010046 

001006 




BNE 

010050 

032760 

100000 

002202 


BIT 

010056 

001004 




BNE 

010060 

000137 

011200 



JMP 

010064 

000137 

012372 


16$: 

JMP 

010070 

000207 



17$: 

RTS 





.-PROCESS DATA 

010072 

004737 

020764 


DCKER: 

JSR 

010076 

000207 




RTS 

010100 

032760 

000100 

002154 


BIT 

010106 

001411 




BEQ 

010110 

022760 

010040 

002204 


CMP 

010116 

001024 




BNE 

010120 

004737 

021134 



JSR 

010124 

104414 

072400 



DISPLY 

010130 

000451 




BR 

010132 

026027 

002204 

010040 

1$: 

CMP 

010140 

101013 




BHI 

010142 

005760 

002204 



TST 

010146 

001410 




BEQ 

010150 

005760 

002206 



TST 

010154 

001033 




BNE 

010156 

004737 

021134 



JSR 

010162 

104414 

072222 



DISPLY 

010166 

000404 




BR 

010170 

004737 

021134 


2$: 

JSR 

010174 

104414 

072062 



DISPLY 

010200 

004737 

021214 


3$: 

JSR 


#BIT10,$RMER1(R0) ;'IAE' SET? 

11$ ;BR IF NOT SET 

IAEER .-REPORT ’IAE* 

#8IT11,$RMER1(R0) ; ’WLE’ SET? 

12$ ;BR IF NOT SET 

ULEER .-REPORT ’ULE* 

#8IT9,$RMER1(R0) ;’A0E’ SET? 

13$ ;8R IF NOT SET 

#8IT10,$RRDS(R0) ;’LBT’ SET? 

13$ ;BR IF NOT SET 

PC ; ’AOE* l ’LBT’ SET. EXIT 

#8IT12.$RMER1(R0) ;SEE IF ’DTE* SET 

14$ ;BR IF NOT 

DTEER .-REPORT ’DTE’ ERROR 


$RMER1 (RO) 
15$ 

DCKER 


.-SEE IF ’DCK* SET 
;BR IF NOT 
; PROCESS *DCK’ 


#8IT14,$RNER2(R0) .-’SKI' SET 

16$ .-BRANCH IF SKI SET 

#BIT15,$RMER2(R05 « .-’BSE* SET ? 

17$ .-BRANCH IF SO (NO. OTHER ERROR) 

DRVER .-REPORT ERROR 


SKIER 

PC 


.-REPORT SKI ERROR 

.-EXIT FROM ERROR ANALYSIS ROUT. 


’DCK*) CHECK ERROR 

PC.SPOTCK ; SEE IF ERROR AT A BAD SECTOR ON THE DISK 

PC ; I T IS, DON’T REPORT IT 

#ECH,$RMER1 (RO) ;ECH ERROR SET ? 

1$ *BR IF NO 

#10040. SRMECKR05 .-OTHERWISE RPEC1=10040 


2 $ 

PC.LINE1 

.EM52 

h 


• VI Mknni vw iw WV I - I 

REPORT ECC LOGICAL FAILURE 
FIRST LINE OF ERROR MESSAGE 
ECh ERROR - ECC UNCORREC TABLE 


$RMEC1(R0) .#10040 ;IS POSITION COUNT OVER MAXIMUM ? 

2$ ;8R If YES < 

; POSITION COUNT 0 ? 

BR IF YES 

VALUE IN PATTERN REGISTER ? 

BR IF YES 

TYPE FIRST LINE OF ERROR MESSAGE 
TYPE ’ECC LOGIC ERROR’ 


$RMEC1 (RO) 
2 $ 

$RMEC2(R0) 

6 $ 

PC.LINE1 

-EM47 

S$ 

PC.LINE1 

,E^45 

PC.LINE2 


TYPE FIRST LINE OF ERROR MESSAGE 
TYPE ’ECC LOGIC ERROR’ 

TYPE LINE 2 OF ERROR MESSAGE 
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SEO 0075 


220 010204 

221 010210 
222 010216 

223 010222 

224 010224 

225 010230 

226 

227 010232 

228 010236 

229 010242 

230 

231 

232 

233 010244 

234 010250 

235 010254 

236 

237 010254 

238 010260 

239 010264 

240 010270 

241 010274 

242 010302 

243 010310 

244 010312 

245 010316 

246 010320 

250 

251 010326 

252 010332 

253 010336 

254 010340 

255 010342 

256 010350 

257 010352 

258 010356 

259 010362 

260 

261 010366 

262 010374 

263 010376 

264 010404 

265 010406 

266 010412 

267 010420 

278 010422 

279 010426 

280 010432 

281 010436 

282 010442 

283 010446 

284 

2 88 010450 

290 010454 

291 010460 

292 010464 

293 010470 


004737 

012737 

004737 

000403 

004737 

000402 

004737 

004737 

000207 


004737 021134 
104414 070461 


024740 


JSR 

PC.INCTOT 

000003 001330 


MOV 

#3, RETRY 

015744 


JSR 

PC.SRETRY 


BR 

4S 

022706 


JSR 

PC.LINE6C 


BR 

5S 

022714 

4S: 

JSR 

PC.LINE6D 

022746 

5S: 

JSR 

PC.LINE7 


RTS 

PC 


004737 

004737 

004737 

004737 

012737 

032760 

001003 

004737 

000460 

012737 

004737 

005760 

001775 

100057 

032760 

001006 

004737 

104414 

000137 

033760 

001412 

032760 

001421 

105237 

123737 

001342 

004737 

004737 

004737 

004737 

004737 

000436 

004737 

004737 

004737 

004737 

00040? 


021214 

021654 

022324 

015236 

110100 

010100 

022666 


INCREMENT TOTAL ERROR COUNT 

RETRY COUNT 

RETRY THE COMMAND 

RETRY WAS NOT SUCCESSFUL 

PRINT 'CORRECTED ON N RETRIES' 

FINISH THE ERROR REPORT 

PRINT 'UNCORREC TABLE AFTER N RETRIES' 
TYPE LINE 7 OF ERROR MESSAGE 
RETURN 


;THE VALUES IN THE ECC REGISTERS ARE CORRECT, REPORT 'DCK' ERROR 
61: 

7 $: 


001326 

002154 


000020 001330 IS: 

016710 2$: 

000016 3$: 


000200 000016 

024740 

074343 

007356 

001326 002154 
010100 002154 
001331 

001330 001331 

023170 

024644 

024740 

022746 

015236 


4S: 


022666 

022624 

024620 

014472 


6S: 

7$: 


8 $: 

9$: 


JSR 

DISPLY 


PC.L1NE1 

,EM21 


; PRINT LINE 1 OF ERROR MESSAGE 
;DATA CHECK ERROR 


DCKER1 : JSR 
JSR 
JSR 
JSR 
MOV 
BIT 
BNE 
JSR 
BR 
MOV 


PC,LINE2 
PC, LINE3 
PC,LINE4 
PC,PRTBAD 
#8JT15!8IT12 
#81 T1 2 ! BI T06 
1 $ 

PC,LINE6 

9$ 

#16., RETRY 


PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
;SEE IF BAD SECTOR TO BE PRINTED 
‘81 T06.MASK .‘LOAD ERROR MASK 
.SRMERI(RO) ;CHECK 'DTE' t 'ECH' 

BR IF SET 

PRINT 'SECTOR IS ECC CORRECTABLE' 
FINISH THE ERROR REPORT 
RETRY COUNT 


JSR 

TST 

BEQ 

BP L 

BJT 

BNE 

JSR 

DISPLY 

JMP 

BIT 

BEO 

BIT 

BEQ 

INCB 

CMP8 

BNE 

JSR 

JSR 

JSR 

JSR 

JSR 

BR 

JSR 

JSR 

JSR 

JSR 

BR 


PC.GODRIV 
STATUS (RO) 

3$ 

IIS 

#8IT7,STATUS(R0) 

4S 

PC.INCTOT 

,LIN8M 

ERPRC1 


MASK.SRMER1 

6S 

#BIT12!BIT6 

8 $ 

RETRY+1 
RETRY, RETRY 

2S 

PC, LINES 
PC.INCHRD 
PC.INCTOT 
PC, LINE? 
PC.PRTBAD 


(RO) 


RETRY 

TEST FOR DONE 
BR IF NOT DONE 

Dp I i MAT FRPftP 

; SEE IF COMMAND TERMINATED NORMALLY 
BR IF NOT 

INCREMENT TOTAL ERROR COUNT 
'DIFFERENT ERROR DURING RETRY* 

SEE WHICH ERROR 


ui 


PC.LINE6 
PC, LINE 5B 
PC,INCSOF 
PC. ECC 

12i 


LOOK AT CURRENT ERROR 
,8 R IF DIFFERENT ERROR 
,SRMEfcl<RO> ; 'ECH' OR 'DTE* STILL SET ? 

BR IF NEITHER SET 
.INCREMENT RETRY COUNT 
♦1 .‘DONE ? 

BR IF NOT 

PRINT LINE 8 OF ERROR MESSAGE 
INCREMENT 'HARD' ERROR COUNT 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
PRINT THE BAD SECTOR 
CLEAN UP AND RETURN 

PRINT 'SECTOR IS ECC CORRECTABLE' 

PRINT LINE 58 OF THE ERROR MESSAGE 
INCREMENT 'SOFT' ERROR COUNT 
CORRECT THE ERROR USING ECC AND CHECK IT 
COMPARE THE BUFFER 




PA6E 12-4 


l 6 


SEQ 0076 


PC.LINE6D 

7$ 


PC, LINE 6A 
PC , JNCSOF 
#1.FRSTER 
PC, CMPARD 
FRSTER*1 
14$ 


PC,INCTOT 

,LIN9G 

PC,LINE7 


PC 


.-PRINT 'UNCORREC TABLE AFTER N RETRIES' 
.-INCREMENT ERROR COUNT 

.-PRINT LINE 6A OF ERROR MESSAGE 
.-INCREMENT 'SOFT' ERROR COUNT 
.-SET PROCESSING 'DCKER' INDICATOR 
.-COMPARE THE BUFFER 
.-ERROR IN COMPARE ? 

.-BRANCH IF ERROR 
.-INCREMENT TOTAL ERROR COUNT 
.-'DATA COMPARE OK * MESSAGE 
; PRINT LINE 7 OF ERROR MESSAGE 
.-RETURN 


IROR PROCESSING 


#8IT15,$RMER1 

2 $ 

PC,LINE1 

,EM23 

MASK 

PC.LINE2 

PC.LINE3 

PC.LINE4 

PC. LINES 

PC.INCTOT 

#3, RETRY 

PC.SRETRY 

IS 

PC.LINE6C 

ioi 


(RO) ;SEE IF 'DCK' SET ALSO 

;8R IF IT IS 

.-PRINT LINE 1 OF ERROR MESSAGE 

.-PRINT WCE t DCK NOT 

.CLEAR ERROR MASK 

.-PRINT LINE 2 OF ERROR MESSAGE 

.-PRINT LINE 3 OF ERROR MESSAGE 

.-PRINT LINE 4 OF ERROR MESSAGE 

.PRINT LINE 5 OF ERROR MESSAGE 

.‘INCREMENT TOTAL ERROR COUNT 

; RETRY LIMIT 

.-RETRY THE OPERATION 

; RE TRY UNSUCESSFUL 

.-PRINT ‘CORRECTED ON N RETRIES’ 

.FINISH PROCESSING THE ERROR 


PC. LINE 60 
10 $ 

PC.SPOTCK 

ni 

PC.LINE1 

#EM22.4$ ; 

#BIT14,$RMCS2(R0) 
3$ 

#EM37.4$ 


0 

PC.LINE2 

PC.LINE3 

PC.LINE4 

PC.LINE5 ; 

#8IT06,$RMER1 (RO) 
10 $ 

#16. .RETRY 
PC.GODRIV 
STATUS (RO) 

7$ 

8 $ 

RE TRY+1 


PRINT 'UNCORRECTABLE AFTER N RETRIES' 
FINISH PROCESSING THE ERROR 
SEE IF ERROR AT BAD SECTOR ON THE DISK 
EXIT IF AT BAD SECTOR ON DISK 
PRINT LINE 1 OF ERROR MESSAGE 
ASSUME THAT EM22 HILL BE PRINTED 
;DID ‘WCK‘ ALSO SET ? 

BR IF it DID 

MESSAGE FOR 'DCK' AND ’WCK' NOT DURING 
WRITE CHECK 
TYPE THE ERROR MESSAGE 
MESSAGE ADDRESS GOES HERE 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
PRINT LINE S OF ERROR MESSAGE 
;ECH SET ALSO ? 

FINISH PROCESSING THE ERROR 
RETRY LIMIT - 16 (10) 

RETRY THE COMMAND 
COMMAND FINISHED ? 

BR IF NOT 

BR IF ERROR ON COMMAND 
INCREMENT RETRY COUNT 
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349 

010766 

004737 

022706 



JSR 

PC.LINE6C ; 

10i ; 

PRINT 'CORRECTED ON N RETRIES' 

350 

351 
35 2 

010772 

000423 




BR 

FINISH ERROR PROCESSING 

010774 

105237 

001331 


8$: 

1NCB 

RETRY+1 

INCREMENT RETRY COUNT 

353 

011000 

123737 

001330 

001331 


CMP8 

RETRY, RETRY+1 

DONE ? 

354 

011006 

001714 




BEQ 

1$ i 

BR IF AT RETRY LIMIT 

355 

011010 

032760 

100000 

002154 


BIT 

#SIT15,$RMER1(R0) 

;'DCK' SET 

356 

011016 

001407 




BEQ 

9$ : 

BR IF NOT - DIFFERENT ERROR 
;'ECH' ALSO SET ? 

357 

011020 

032760 

000100 

002154 


BIT 

#8IT06,$RMER1 (ROj 

358 

011026 

001347 




BNE 

6$ 

BR IF IT IS, RETRY COMMAND 

PRINT ’CORRECTED ON N RETRIES' 

359 

011030 

004737 

022706 



JSR 

PC.LINE6C 

ioi 

360 

361 

362 

011034 

000402 




BR 

FINISH PROCESSING ERROR 

011036 

004737 

023170 


9$: 

JSR 

PC.LINE8 

PRINT LINE 8 - 'DIFFERENT ERROR ' 

363 

011042 

004737 

024740 


10$: 

JSR 

PC.INCTOT 

INCREMENT TOTAL ERROR COUNT 

364 

011046 

004737 

022746 



JSR 

PC.LINE7 

FINISH THE ERROR MESSAGE 

365 

366 

367 

368 

369 

011052 

000207 



11$: 

RTS 

PC 

RETURN 





.•REPORT 

'HCRC' 

ERROR 


011054 

004737 

020764 


HCRCER: 

JSR 

PC.SPOTCX 

SEE IF ERROR AT BAD SECTOR 

370 

011060 

000446 




BR 

3$ 

EXIT IF IT IS 

371 

011062 

004737 

023254 



JSR 

PC.READDR 

READ ERROR SECTOR HEADER 

372 

011066 

004737 

015652 



JSR 

PC.READHD 

GET THE HEAD INFORMATION 

373 

011072 

004737 

021134 



JSR 

PC.LINE1 

PRINT LINE 1 OF ERROR MESSAGE 

374 

011076 

104414 

070440 



DISPLY 

,EM20 

REPORT 'HCRC' 

375 

011102 

004737 

021214 



JSR 

PC.LINE2 

PRI*-T LJNfc 2 OF ERROR MESSAGE 

376 

011106 

004737 

021654 



JSR 

PC.LINE3 

PK.N7 > OF ERROR MESSAGE 

377 

011112 

004737 

022324 



JSR 

PC.LINE4 

PRINT LINE 4 OF ERROR MESSAGE 

378 

011116 

004737 

022556 



JSR 

PC.LINE5A 

PRINT THE HEADER INFORMATION 

384 

011122 

004737 

024620 


1$: 

JSR 

PC.INCSOF 

INCREMENT 'SOFT* ERROR COUNT 

385 

011126 

004737 

024740 



JSR 

PC.INCTOT 

INCREMENT TOTAL ERROR COUNT 

386 

011132 

012737 

I'TylT'I'l 

001326 


MOV 

#8IT8,MASK 

SET ERROR MASK 

387 

011140 

012737 

■©SSI 

001330 


MOV 

#3. RETRY 

RETRY LIMIT 

388 

011146 

004737 

015744 



JSR 

PC,$RE TRY 

RETRY COMMAND 

389 

011152 

000405 




BR 

2$ 

RETRY NOT SUCESSFUl 

390 

011154 

004737 

022706 



JSR 

PC.LINE6C 

PRINT 'CORRECTED ON N RETRIES' 

391 

011160 

004737 

022746 



JSR 

PC.LINE7 

PRINT LINE 7 OF ERROR MESSAGE 

392 

011164 

000404 




BR 

3$ 

EXIT 

393 









394 

011166 

004737 

022714 • 


2$: 

JSR 

PC, LINE6D 

PRINT 'UNCORREC TABLE AFTER N RETRIES' 

395 

011172 

004737 

022746' 



JSR 

PC.LINE7 

PRINT LINE 7 OF ERROR MESSAGE 

396 

011176 

000207 



3$: 

RTS 

PC 

RETURN 

397 

398 

399 

400 



/ 


.•REPORT 

DRIVE ERROR 


011200 

004737 

021134 


DRVER: 

JSR 

PC.LINE1 

PRINT LINE 1 OF ERROR MESSAGE 

401 

011204 

104414 

071055 



DISPLY 

.EM30 

REPORT DRIVE ERROR 

402 

011210 

004737 

021214 



JSR 

PC.LINE2 

PRINT LINE 2 OF ERROR MESSAGE 

403 

011214 

004 7|7 

021654 



JSR 

PC.LINE3 

PRINT LINE 3 OF ERROR MESSAGE 

404 

011220 

004737 

024740 



JSR 

PC.INCTOT 

INCREMENT TOTAL ERROR COUNT 

405 

011224 

004737 

022746 



JSR 

PC.IINE7 

PRINT LINE 7 OF ERROR MESSAGE 

406 

407 

408 

409 

410 

011230 

000207 




RTS 

PC 

RETURN 





.•PROCESS FORMAT ('FER') ERROR 


011232 

032760 

000400 

002154 

CKFMT : 

BIT 

#8IT8.$RMER1(R0) 

; 'HCRC' SET ON ORIGINAL ERROR ? 
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N 6 


SEQ 0078 


411 011240 

412 011242 

413 

414 011246 

415 011252 

416 011256 

417 011264 

418 011266 

419 

420 011272 

421 011276 

422 011300 

423 011304 

424 011310 

425 011314 

426 011320 

432 011324 

433 011330 

434 011334 

435 011340 

436 011346 

437 011354 

438 011360 

439 011362 

440 011366 

441 011372 

442 

443 011374 

444 011400 

445 011404 

446 

447 

448 

449 011406 

450 011414 

451 011416 

452 011422 

453 011426 

454 011432 

455 011440 

456 011442 

457 011446 

458 011454 

459 011462 

460 011464 

461 011470 
011470 

4g 011474 

464 011500 

465 011504 

» 8111 ?! 

468 011516 

469 011522 

470 011526 
476 011532 


001402 

000137 

004737 

004737 

032737 

001002 

000137 

004737 

000442 

004737 

104414 

004737 

004737 

004737 

004737 

004737 

004737 

012737 

012737 

004737 

000405 

004737 

004737 

000404 

004737 

004737 

000207 


032760 

001402 

000137 

004737 

004737 

032737 

001017 

013746 

042737 

026037 

001402 

000137 

012637 

000137 






BEO 

011054 



JMP 

023254 


IS: 

JSR 

015652 



JSR 

000400 

06761? 


BIT 




BNE 

012166 



JMP 

020764 


2S: 

JSR 




BR 

021134 



JSR 

070644 



DISPLV 

021214 



JSR 

021654 



JSR 

022324 



JSR 

022556 


35: 

JSR 

024620 



JSR 

024740 



JSR 

000020 

001326 


MOV 


001330 


MOV 

015744 



JSR 




BR 

022706 



JSR 

022746 



JSR 




BR 

022714 


4S: 

JSR 

022746 



JSR 



55: 

RTS 



.■PROCESS HEADER 


1$ 

HCRCER 


;0R IF NOT SET 
.•REPORT HCRC ERROR 


PC.READDR ;GET CORRECTED TRACK & SECTOR ADDRSSES 

PC.READR0 ;READ HEADER 

#81 T8.GENREG+RMER1 ;'HCRC' SET WHEN HEADER READ? 


25 

FMTER 

PC.SPOTCK 

5$ 

PC.LINE1 

,EM24 

PC. LINE? 

PC.LINE3 

PC.UNE4 

PC, LINE 5A 

PC.INCSOF 

PC.INCTOT 

#BIT4,MASK 

#3. RETRY 

PC.SRETRY 

4$ 

PC.LINE6C 

PC.LINE7 

5$ 

PC. LINE 6D 

PC.LINE7 

PC 


8R IF *HCRC ' SET 
NO, ERROR IS 'FMT' ONLY 

SEE IF ERROR AT BAD SECTOR ON THE DISK 
EXIT IF IT IS 

PRINT LINE 1 OF ERROR MESSAGE 

HEADER READ ERROR - FMT BIT DROPPED UP 

PRINT LINE 2 OF ERROR MESSAGE 

PRINT LINE 3 OF ERROR MESSAGE 

PRINT LINE 4 CF ERROR MESSAGE 

DISPLAY HEADER 

INCREMENT SOFT ERROR COUNT 

INCREMENT TOTAL ERROR COUNT 

SET ERROR MASK 

RETRY LIMIT 

RETRY THE COMMAND 

RETRY NOT SUCESSFUL 

PRINT 'CORRECTED ON N RETRIES' 

PRINT LINE 7 OF ERROR MESSAGE 
EXIT 

PRINT 'UNCORREC TABLE AFTER N RETRIES' 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 


000400 

002154 

CKHCE : 

BIT 




BED 

011054 



JMP 

023254 


15: 

JSR 

015652 



JSR 

000400 

067612 


BIT 




BNE 

101174 



NOV 

170000 

101174 


BIC 

002174 

101174 


CMP 




BEG 

011614 


2S: 

JMP 

101174 



MOV 

012230 



JMP 

020764 


3S: 

JSR 




m 

021134 

070712 



JSR 

DISPLY 

021214 



JSR 

021654 



JSR 

m 


45: 

JSR 

JSR 


#81 T8.SRNER1 (RO) :HCRC SET ON ORIGINAL ERROR ? 

IS ;8R IF NOT SET 

HCRCER ; REPORT HEADER CRC ERROR 

PC.READDR ;6ET CURRENT SECTOR t TRACK ADDRS 

PC, RE ADHD :READ HEADER OF CURRENT SECTOR 

#B1T8,GENREG+RMER1 ;'HCRC* SET ? 

3S ;8R IF SET 

““ ;PUSH CYLNDR ON STACK 

CLEAR FORMAT, MFG. USER AND SSF BITS FROM HEADER 
;CORRECT CYLINDER ? 

BR IF IT IS 

REPORT POSITIONING ERROR 


CYLNDR. -<SP) 
#170000. CYLNDR 
SRMDC(RO), CYLNDR 

2$ 

POSER 


<SP)*, CYLNDR 
HCEER 

PC.SPOTCK 

5*r 

frijSf 

PC.LINE4 
PC, LINE 5A 


;POP STACK INTO CYLNDR 
REPORT 'MCE' ERROR 

SEE IF ERROR AT BAD SECTOR 
EXIT IF IT IS 

PRINT LINE 1 OF ERROR MESSAGE 
HEADER READ ERROR - *HCE' SET 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
PRINT LINE 5 OF ERROR MESSAGE 
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SEQ 0079 


B 7 


477 011536 

004737 

024620 



JSR 

PC.INCSOF 

.•INCREMENT SOFT ERROR COUNT 

478 011542 

004737 

024740 

001326 


JSR 

PC.JNCTOT 
0BIT7.MASK 
#3. RETRY 

.•INCREMENT TOTAL ERROR COUNT 

479 011546 

012737 

000200 


MOV 

.-SET ERROR MASK 

480 011554 

012737 

000003 

001330 


MOV 

.•RETRY LIMIT 

481 011562 

004737 

015744 


JSR 

PC.SRETRY 

.•RETRY THE COMMAND 

482 011566 

000405 




BR 

5$ 

.•RETRY NOT SUCESSFUL 

483 011570 

004737 

022706 



JSR 

PC.LINE6C 

.-PRINT 'CORRECTED ON N RETRIES' 

484 011574 

004737 

022746 



JSR 

PC.LINE7 

.•PRINT LINE 7 OF ERROR MESSAGE 

485 011600 

486 

487 011602 

000404 




BR 

6S 

.‘EXIT 

004737 

022714 


5S: 

JSR 

PC.LINE6D 

.•PRINT 'UNCORRECTABLE AFTER N RETRIES 

488 011606 

004737 

022746 


6$: 

JSR 

PC.LINE7 

.•PRINT LINE 7 OF ERROR MESSAGE 

489 011612 

490 

491 

492 

493 011614 

000207 

> 


RTS 

PC 

.•RETURN 




.•REPORT 

POSSIBLE POSITIONING ERROR 

004737 

021134 


POSER: 

JSR 

PC.LINE1 

.•PRINT LINE 1 OF ERROR MESSAGE 

494 011620 

104414 

072335 



DISPLY 

.EM51 - 
PC.LJNE2 

.•PROGRAM DETECTED POSITIONING ERROR 

495 011624 

004737 

021214 



JSR 

.•PRINT LINE 2 OF ERROR MESSAGE 

496 011630 

004737 

021702 



JSR 

PC.LINE3C 

(SW+.CVLNDR 

.•PRINT LINE 3C OF ERROR MESSAGE 

497 011634 

012637 

101174 



MOV 

;;POP STACK INTO CYLNDR 

.•PRINT LINE 5A OF THE ERROR MESSAGE 

498 011640 

004737 

022556 



JSR 

PC.LINE5A 

499 011644 

004737 

024714 



JSR , . 

PC.INCMIS 

.•INCREMENT M1SP0S1TIONJNG COUNT 

500 011650 

004737 

024740 



JSR 

PC.INCTOT; 

; INCREMENT TOTAL ERROR COUNT 

501 011654 

004737 

023076 



JSR 

PC.LINE7A 

.•PRINT LINE 7A OF ERROR MESSAGE 

502 011660 

004737 

015534 



JSR - 

PC.RECALT 

.•RECALIBRATE 

503 011664 

PA/ 

000207 

* 



RTS 

PC 

.•EXIT 


505 

506 

507 011666 

508 011672 

509 011674 

510 011700 

511 011704 

512 011710 

513 011714 

514 011720 

515 011724 

516 011732 

517 011740 

518 011744 

519 011746 

520 011752 

521 011756 

522 

523 011760. 

524 011764 

525 011770 

526 

527 

528 

529 011772 

530 011776 

531 012000 

532 012004 

533 012010 


; REPORT 'OPI' ERROR 


004737 

000207 

004737 

104414 

004737 

004737 < 

004737 

004737. 

012737 

012737 

004737 

000405 

004737 

004737 

000207 


020764 

021134 
071107 
021214 > 

021654 

022324 

024740 

020000 - 001326 
000003 001330 
015744 

022706 

022746 


0P1ER: 


0PIER1: 


JSR 
RTS . 
JSR / 
DISPLY 
JSR 
JSR I 
JSR 
JSR 

MOV ■ 

MOV’ 

JSR 

BR 

JSR 

JSR 

RTS 


004737 

022714 

1$: JSR 

004737 

022746 

JSR 

000207 


RTS 



.•REPORT 'DTE' 1 

004737 

020764 

DTEER: JSR 

000207 


RTS 

004737 

021134 

JSR 

104414 

071152 

DISPLY 

000137 

010254 

JMP 


PC.SPOTCK 

PC 

PC.LINE1 

•EM31 - 

PC;LINE2 

PC.LJNE3 

PC.LINE4 

PC^INCTOT 

#8IT13,MASK 

A3.RETRY 

PC.WETRY, 

PC.LINE6C 

PC.LINE7 

PC 

PC.L1NE6D 

PC.LINE7 

PC 


PC.SPOTCK 

PC 

PC,LJNE1 


;SEE IF ERROR AT BAD SECTOR 
.'RETURN IF IT IS 


.•PRINT LINE 1 
.-•OPI* ERROR 
.•PRINT LINE 2 
.•PRINT LINE 3 
.•PRINT LINE 4 


OF ERROR MESSAGE 

OF ERROR MESSAGE 
OF ERROR MESSAGE 
OF ERROR MESSAGE 


.EM3I 
DCKER1 


; INCREMENT TOTAL ERROR COUNT 
.•ERROR MASK 
.•RETRY LIMIT 
.•RETRY THE COMMAND 
.•RETRY UNSUCESSFUL 
.•PRINT 'CORRECTED ON N RETRIES* 

.•PRINT LINE 7 OF ERROR MESSAGE 
.‘EXIT 

.•PRINT 'UNCORRECTABLE AFTER N RETRIES' 
.•PRINT LINE 7 OF ERROR MESSAGE 
.•RETURN 


.-SEE IF ERROR AT BAD SECTOR 
.•RETURN IF IT IS 
.•PRINT LINE 1 OF ERROR MESSAGE 
•'DTE* ERROR 

•FINISH PROCESSING THE 'DTE' ERROR 
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.•REPORT ’PAR' ERROR 


537 012014 

004737 

021134 


PARER: 

JSR 

538 012020 

104414 

071205 



DISPLY 

539 012024 

004737 

021214 



JSR 

540 012030 

004737 

021760 



JSR 

541 012034 

004737 

022324 



JSR 

542 012040 

004737 

024740 



JSR 

543 012044 

012737 

000010 

001326 


MOV 

544 012052 

012737 

000003 

001330 


MOV 

545 012060 

004737 

015744 



JSR 

546 012064 

000405 




BR 

547 012066 

004737 

022706 



JSR 

548 012072 

004737 

022746 


1$: 

JSR 

549 012076 

000207 




RTS 

550 






551 012100 

004737 

022714 


2$: 

JSR 

552 012104 

000772 




BR 


553 

554 

555 

556 012106 

557 012112 

558 012116 

559 012122 

560 012126 

561 012132 

562 012136 

563 

564 

565 

566 012140 

567 012744 

568 012150 

569 012154 

570 012160 

571 012164 

572 

573 

574 

575 012166 

576 012172 

577 012176 

578 012202 

579 012206 

586 012212 

587 012216 

588 012222 

589 012226 

590 

591 

592 

593 012230 

594 012234 

595 012240 

596 012244 


004737 

104414 

004737 

004737 

004737 

004737 

000207 


004737 

104414 

004737 

004737 

004737 

000207 


004737 

104414 

004737 

004737 

004737 

004737 

004737 

004737 

000207 


004737 

104414 

004737 

004737 


021134 

071324 

021214 

022046 

024740 

022746 


021134 

071362 

021214 

024740 

022746 


021134 

070773 

021214 

021654 

022324 

022556 

024740 

022746 


021134 

071020 

021214 

021654 


SAT 

PC.LINE2 
PC, LINE3E 
PC.LINE4 
PC.INCTOT 
#8IT03,MASK 
#3. RE TRY 
PC.$RETRY 
2 $ 

PC.LINE6C 

PC.LJNE7 

PC 

PC. LINE 6D 
1 $ 


.•REPORT MAE’ ERROR 
IAEER: JSR PC.LINE1 


J5R 

01 SPIV 

JSR 

JSR 

JSR 

JSR 

RTS 


PC.LINE2 

PC.LINE3F 

PC.INCTOT 

PC.LINE7 

PC 


.-REPORT *WLE' ERROR 


ULEER: 


JSR 

01SPLY 

JSR 

JSR 

JSR 

RTS 


PC.LINE1 

.EM36 „ 

PC.UNE2 

PC.INCTOT 

PC.LINE7 

PC 


.•REPORT FORMAT ERROR 


FMTER: 


JSR 

DISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 

JSR 

RTS 


PC.LJNE1 

.EM26 

PC.LINE2 

PC.LJNE3 

PC.LINE4 

PC.LINE5A 

PC.INCTOT 

PC.11NE7 

PC 


.REPORT HEADER COMPARE ERROR 

HCEER: JSR PC.LINE1 

DISPLY .EM27 
JSR PC.LINE2 

JSR PC.LINE3 


SFQ 0080 


PRINT LINE 1 Of ERROR MESSAGE 
REPORT 'PAR' 

PRINT LINE 2 OF ERROR MESSAGE 

PRINT LINE 3E OF ERROR MESSAGE 

PRINT LINE «* OF ERROR MESSAGE 

INCREMENT TOTAL ERROR COUNT 

ERROR MASK 

RETRY LIMIT 

RETRY COMMAND 

RETRY UNSUCESSFUL 

PRINT ’CORRECTED ON N RETRIES’ 

PRINT LINE 7 OF ERROR MESSAGE 
EXIT 

PRINT ’UNCORREC TABLE AFTER N RETRIES’ 
FINISH ERROR MESSAGE 


PRINT LINE 1 OF ERROR MESSAGE 
REPORT ' IAE' 

PRINT UNE 2 OF ERROR MESSAGE 
PRINT LINE 3F OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 


PRINT LINE 1 OF ERROR MESSAGE 
REPORT ’WLE’ 

PRINT LINE 2 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 


PRINT LINE 1 OF ERROR MESSAGE 

CfUMUT CDDnC 

PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
PRINT LINE 5A OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 


PRINT LINE 1 OF ERROR MESSAGE 
HEADER COMPARE ERROR 
PRINT LINE 2 Of ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
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D 7 


SEQ 0081 


597 012250 

604 012254 

605 012260 

606 012264 

607 012270 

608 

609 

610 

611 012272 

612 012276 

613 012302 

614 012306 

615 012312 

616 012316 

617 012322 

618 012330 

619 012332 

620 012340 

621 012344 

622 012350 

623 012352 

624 012356 

625 

626 012360 

627 012364 

628 012370 

629 

630 

631 

632 012372 

633 012376 

634 012402 

635 012406 

636 012412 

637 012416 

638 012422 

639 012426 

640 012*32 

641 

642 

643 

644 012434 

645 012440 

646 012444 

647 012450 

648 012454 

649 012460 

650 012464 

651 012470 

652 012476 

653 012504 

654 012510 

655 012512 

656 012516 

657 012522 

658 

659 012524 


004737 

004737 

004737 

004737 

000207 


004737 

104414 

004737 

004737 

004737 

004737 

032760 

001415 

012737 

005037 

004737 

000403 

004737 

000402 

004737 

004737 

000207 


004737 

104414 

004737 

004737 

004737 

004737 

004737 

004737 

000207 


004737 

104414 

004737 

004737 

004737 

004737 

004737 

012737 

012737 

004737 

000405 

004737 

004737 

000207 

004737 


022324 

022556 

024740 

022746 


021134 

071475 

021214 

021654 

022324 

024740 

121400 002150 

000003 001330 

001326 

015744 

022706 


022714 

022746 


JSR 

JSR 

JSR 

JSR 

RTS 


PC.LINE4 
PC, LINE 5A 
PC,INCT0T 
PC.LINE7 
PC 


PRINT LINE * OF ERROR MESSAGE 
PRINT LINE 5A OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 


.•PROCESS CONTROL/INTERFACE TRANSFER ERROR 


TRFER: 


1 $: 

2 $: 


JSR 

DISPLV 

JSR 

JSR 

JSR 

JSR 

BIT 

BEQ 

MOV 

CLR 

JSR 

BR 

JSR 

SR 

JSR 

JSR 

RTS 


PC.LINE1 

,EM40 

PC.LINE2 

PC.LINE3 

PC.LINE4 

PC.INCTOT 

*8IT15!BIT13 

2 $ 

#3, RETRY 
MASK 

PC, IRE TRY 
IS 

PC.LINE6C 

25 

PC.LINE60 

PC.LINE7 

PC 


; PROCESS 'SKI' ERRORS 


021134 

SKIER: JSR 

072277 

DISPLY 

021214 

JSR 

021670 

JSR 

024740 

JSR 

024670 

JSR 

023076 

JSR 

015534 

JSR 


RTS 


w 

PC.LINE2 

PC.LINE38 

PC.INCTOT 

PC.INCSKI 

PC.LINE7A 

PC.RECALT 

PC 


021134 


WCFER: 

JSR 

071262 



DISPLY 

021214 



JSR 

021662 



JSR 

022324 



JSR 

024740 



JSR 

015236 



JSR 

MWAH 

001330 


MOV 

000040 

001326 


MOV 

015744 



JSR 




BR 

022706 



JSR 

022746 


1$: 

JSR 




RTS 

022714 


2$: 

JSR 


PRINT LINE 1 OF ERROR MESSAGE 
RH CONTROLLER OR UNIBUS TRANSFER ERROR 
PRINT LINE 2 OF ERROR MESSAGE 
PRIN1 LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
.INCREMENT TOTAL ERROR COUNT 
!BIT$!8IT8.SRMCS2(R0> 

SR IF NONE SET 
RETRY LIMIT 
CLEAR ERROR MASK 
RETRY THE OPERATION 
RETURN HERE IF RETRY UNSUCESSFUL 
PRINT ’CORRECTED ON N RETRIES’ 

FINISH THE ERROR REPORT 

PRINT ’UNCORREC TABLE AFTER N RETRIES’ 
PRINT LINE 7 OF ERROR MESSAGE 


PRINT LINE 1 OF ERROR MESSAGE 
•SKI’ ERROR 

PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 38 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
INCREMENT ’SKI* ERROR COUNT 
PRINT LINE 7A OF ERROR MESSAGE 
RECALIBRATE 


DLT’.’UPE’.’MXF’, 'MDPE' SET ? 


.•REPORT WRITE CLOCK FAILURE CWCF’) 


aar 

PC.LINE2 
PC.LINE3A 
PC.LINE4 
PC.INCTOT 
PC,PRTBAD 
#3, RETRY 
#81T05,MASK 
PC.SRETRY 
2 $ 

PC.LINE6C 

PC.LINE7 

PC 

PC.LINE60 


PRINT LINE 1 OF ERROR MESSAGE 
REPORT WRITE CLOCK FAILURE 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3A OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
SEE IF BAD SECTOR TO BE PRINTED 
RETRY COUNT 
ERROR MASK 
RETRY THE COMMAND 
RETURN HERE IF RETRY UNSUCESSFUL 
PRINT 'CORRECTED ON N RETRIES’ 
PRINT LINE 7 OF ERROR MESSAGE 


.•PRINT ’UNCORREC TABLE AFTER N RETRIES’ 
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660 012530 

661 

662 

663 

664 012532 

665 012536 

666 012542 

667 012546 

668 012552 

669 012556 

670 012564 

671 012566 

672 012574 

673 012602 

674 012606 

675 012610 

676 012614 

677 

678 012616 

679 012622 

680 012626 

681 012634 

682 012636 

683 012640 

684 012644 

685 

686 

687 

688 012646 

689 012652 

690 012654 

691 012660 

692 012664 

693 012670 

694 012674 

695 012700 

696 012702 

697 012706 

698 012712 

706 012716 

012720 

012724 

012730 

012732 

012736 

012742 

012744 

012750 

012754 

012756 

012762 

012766 

012770 

012774 

0130C0 

013002 

01*906 


000772 


004737 

104414 

004737 

004737 

004737 

032760 

001016 

012737 

012737 

004737 

000403 

004737 

000402 

004737 

004737 

032760 

001001 

000207 

004737 

000207 


105737 

001013 

004737 

104414 

004737 

004737 

004737 

000404 

104414 

104414 

104414 

010146 

004737 

104414 

012146 

004737 

104414 

010146 

004737 

104414 

012146 

004737 

104414 

010146 

004737 

104414 

012146 

004737 

104414 


BR 


1 $ 


021134 

072444 

021214 

021654 

024740 

040000 002202 

040000 001326 
000003 001330 
015744 

022706 


.•PROCESS DRIVE UNSAFE ERROR 

UNSAF : JSR PC.LINE1 

DISPLY ,EH60 
JSR PC. LINE 

JSR PC. LINE 

JSR PC.INCTOT . 

BIT #8IT14,SRRER2(R0> 

BNE 2S 

MOV #81 T1 4, MASK 

MOV #3, RE TRY 

JSR PC. IRE TRY 

BR 1$ 

JSR PC.LINE6C 

BR 2S 


022714 

IS: 

JSR 

PC.LINE6D 

022746 

2S: 

JSR 

PC.LINE7 

040000 002202 


BIT 

#8IT14.SRMEI 



BNE 

3S 



RTS 

PC 

015534 

3$: 

JSR 

PC.RECALT 



RTS 

PC 


.•REPORT 

AN 'UNKNOWN' DATA Pi 

001356 

NOMTCH: 

TST8 

FRSTER 



BNE 

IS 

021134 


JSR 

PC.LINE1 

071671 


DISPLY 

.EM43 

021214 


JSR 

PC.LINE2 

021662 


JSR 

PC, LINE 3A 

022324 


JSR 

PC.LJNE4 



BR 

2S , 

071671 

IS: 

9ISPLY 

,EM43 

001203 


DISPLY 

.SCRLF 

074473 

2S: 

DISPLY 

.LIN91 



MOV 

R1.-CSP) 

023202 


JSR 

PC.LINOCT 

075233 


DISPLY 

.8LNKS2 



MOV 

(R1)+,-(SP) 

023202 


JSR 

PC.LINOCT 

001203 


DISPLY 

.SCRLF 



MOV 

R1,-(SP) 

023202 


JSR 

PC.LINOCT 

075233 


DISPLV 

.8LNKS2 



MOV 

(RIH.-(SP) 

023202 


JSR 

PC.LINOCT 

001293 


DISPLY 

.SCRLF 



MOV 

R1 ,-(SP) 

023202 


JSR 

PC.LINOCT 

075233 


DISPLY 

.BLNKS2 



MOV 

<R1H,-(SP> 

023202 


JSR 

PC.LINOCT 

001203 


DISPLY 

.SCRLF 


PRINT LINE 1 OF ERROR MESSAGE 
REPORT DRIVE UNSAFE 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
;IS 'SKI' ALSO SET ? 

BR IF YES 

LOAD THE ERROR MASK 

RETRY COUNT 

RETRY THE COMMAND 

RETRY UAS UNSUCESSFUL 

PRINT 'CORRECTED ON N RETRIES' 

CONTINUE WITH ERROR REPORT 

PRINT 'UNCORREC TABLE AFTER N RETRIES' 
PRINT LINE 7 OF ERROR MESSAGE 
: CHECK 'SKI' AGAIN 
BR IF SET 
RETURN 
RECALI0RATE 
RETURN 


FIRST ERROR IN THE SECTOR ? 

BR IF NOT OR IF PROCESSING 'DCKER* 
TYPE LIME 1 OF ERROR MESSAGE 
'CAN'T MATCH DATA WITH PATTERN* 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3A OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
CONTINUE PROCESSING ERROR 
•CAN'T MATCH DATA WITH PATTERN* 
CR-LF 

HEADER FOR DATA PRINTOUT 
ADDRESS OF WORD 1 
TYPE WORD 1 
TYPE 2 BLANKS 
ADDRESS OF WORD 1 
TYPE WORD 1 
CR-LF 

ADDRESS OF WORD 2 
TYPE WORD 2 
TYPE 2 BLANKS 
ADDRESS OF WORD 2 
TYPE WORD 2 
CR-LF 

ADDRESS OF WORD 3 
TYPE WORD 3 
TYPE 2 BLANKS 
ADDRESS OF WORD 3 
TYPE WORD 3 
CR-LF 
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F 7 


SEQ 0083 


013012 

0130H 

013020 

013024 

013026 

013032 

707 013036 

708 013042 

709 013044 

710 013052 

711 013060 

712 

713 

714 

715 013062 

716 013070 

717 013072 

718 013100 

719 013102 

720 013106 

721 013110 

722 013114 

723 013116 

724 013122 

725 013126 

726 013132 

727 013136 

728 013142 

729 013146 

730 013152 

731 

732 

733 

734 013154 

735 013160 

736 013162 

737 013166 

738 013170 

739 013174 

740 013200 
013202 
013206 
013212 

744 013216 

745 013222 

746 013226 

747 013232 

748 013236 


741 

742 

743 


010146 

004737 

104414 

012146 

004737 

104414 

062701 

005002 

012737 

013737 

000207 


032760 

001012 

032760 

001006 

005760 

001003 

005760 

001416 

004737 

104414 

004737 

004737 

004737 

004737 

004737 

000207 


005760 

001010 

016046 

006316 

066016 

022660 

001416 

004737 

104414 

004737 

004737 

004737 

004737 

004737 

000207 




MOV 

RI.-(SP) 

ADDRESS OF WORD 4 

023202 


JSR 

PC.LINOCT 

TYPE WORD 4 

075233 


DISPLY 

.8LNKS2 

TYPE 2 BLANKS 


MOV 

CR1)*,-(SP> 

ADDRESS OF WORD 4 

023202 


JSR 

PC.LINOCT 

TYPE WORD 4 

001203 

000770 


DISPLY 

ADD 

*<£5^*2. >,R1 

CR-LF 

INCREMENT BUFFER POINTER 


CLR 

R2 

CLEAR 'WORDS TO COMPARE' COUNT IN R2 

177777 

001356 

MOV 

f-I.FRSTER 

SET ERROR FOUND INDICATOR 

001460 

001366 

MOV 

CMPLMT, LIMIT 

RESET THE COMPARE ERROR TYPEOUT LIMIT 


PTS 

PC 

RETURN 


; CHECK ERROR BITS IN THE RH/RM REGISTERS 


060000 002140 CKERR: 
177400 002150 
002154 


002202 

021134 

071765 

021214 

021654 

022324 

024740 

022746 


002142 

000020 

000006 

002144 

021134 

071544 

021214 

021712 

U22324 

024740 

022746 


IS: 


2 $: 


BIT 

BNE 

BIT 

BNE 

TST 

BNE 

TST 

BEO 

JSR 

DISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 

RTS 


#60000. SRMCSKRO) ;SEE IF 'TRE* 

if .DO |T C I TUCD CCT 

#1 77400, SRHCS2(r6) R 1 ; SEE IF ERROR BITS 


OR 'MCPE ’ SET 


itfWW 4 > bnnvn W 4 » W IN C 52 

;8R IF ANY SET 
SAMER1 (RO) ;A NY BITS SET IN ER1 

It .DO if ANY <FT 

$RNER2<R0> ; ANY BITS SET IN ER2 ? 

2S ;BR IF NONE SET 

PC.LINE1 ; PRINT LINE 1 OF 

,Em4 ; ERROR BITS SET, 

£c,LINE 2 .PRINT LINE 2 Of 

PC, LINE* .PRINT LINE 3 OF 

PC.LINE4 ; PRINT LINE 4 OF 

PC.JNCTOT ; INCREMENT TOTAL _ 

PC.LINE7 ; PRINT LINE 7 OF ERROR MESSA6E 

PC ;RFTURN 


SET 


ERROR MESSAGE 
BUT 'SC* OR ' TRE' NOT SET 
ERROR MESSAGE 
ERROR MESSAGE 
ERROR MESSAGE 
ERROR COUNT 


.'CHECK BUS ADDRESS REGISTER 8 WORD COIMT REGISTER 


CKBUS: TST 


1 $: 


2S: 


MOV 

ASL 

ADD 

CMP 

BEO 

JSR 

DISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 

RTS 


$RMUC(RO) 

IS 

SURDL(RO) ,-(SP) 
(SP) 

SBUF(RO).(SP) 

<SP)*,SRMBA(RO) 

2 * 

PC.LINE1 

,EM41 

k.L!NE2 

PC, LINE 3D 

PC.LINE4 

PC,INCTQT 

PC.LINE7 

PC 


CHECK WORD COUNT 
BR IF NOT ZERO 
WORD LENGTH 
CHANGE INTO BYTE COUNT 
ADD THE STARTIN6 LOCATION 
BUFFER ADDRESS PROPER ? 

BR IF OK 

PRINT LINE 1 OF ERROR MESSAGE 
BUS ADDRESS OR WORD CCKMT INCORRECT 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3D OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 


G 7 



SEO 0084 


CLEAR 'FIRST ERROR' INDICATOR 

SEE IF READ COMMAND 
8R IF IT IS 
RETURN 

CLEAR THE ERROR COUNTER 
BUFFER ADDRESS 

WORD COUNT TO WORKING LOCATION 
CALCULATE ACTUAL WORDS TRANSFERED 


EXIT— NO WORDS XFERED 

CYLINDER ADDRESS WORKING LOCATION 
SET MFG. USER, SSF AND FMT BITS 
SECTOR t TRACK ADDRESSES TO WORKING LOCNS 
DISPLAY LIMIT 

CONVERT PARAMETER INTO LIMIT VALUE 

CLEAR THE 'ZERO'S* INDICATOR 

CLEAR THE R1 SAVE WORD 

CLEAR THE R5 SAVE WORD 

IS BUFFER SIZE GREATER THAN ONE SECTOR ? 

9R IF IT IS 

LESS THAN, USE REMAINING BUFFER 
SET COUNTER TO 0 


COMPARE SECTOR 
DECREMENT WORD COUNT 
READ HEADER I DATA? 
BR IF NOT 


.ADDRESS OF COMPARING CYLINDER 

;SET BITS INCASE BAD SECTOR ENCOUNTER 

; CHECK CYLINDER 

;BR IF COMPARE OK 

.REPORT ERROR 

.COMPARE SECTOR/TRACK 

;8R IF EQ 

.‘REPORT ERROR 

.-SUBTRACT HEADER LENGTH FROM SIZE 
;B R IF NOT FINISHED 
.‘COMPARE THE DATA PORTION 

.‘INCREMENT THE ERROR COIMT 
.REPORT THE COMPARISON ERROR 
; CHECK THE REST OF THE HEADER 


GET ADDRESS LIMITS 
FIND THE PATTERN 
FOUND A PATTERN 

RETURN HERE IF NO MATCH WITH PATTERN HADE 
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SEO 0085 


58 

59 

60 

013516 

000456 




BR 

7$ 

BYPASS COMPARE ROUTINE 

013520 

011405 



IS: 

MOV 

(R4J.R5 

ADDRESS OF PATTERN ADDRESS IN R4 

61 

013522 

012703 

000020 



MOV 

#16. ,R3 

R3 IS PATTERN POS COUNTER 

62 

013526 

022125 



2$: 

CMP 

(Rm,(R5H 

COMPARE BUFFER WITH PATTERN 

63 

013530 

001016 




BNE 

4$ 

BR IF NOT EOUAL 

64 

013532 

005737 

001364 



TST 

ERCTR 

ERRORS DETECTED ? 

65 

013536 

001406 




BEQ 

3$ 

BR IF NO ERRORS 

SWITCH 3 SET ? 

66 

013540 

032777 

000010 

165406 


BIT 

#sw3.bswr 

67 

013546 

001402 




BEQ 

3$ 

BR IF NOT SET 

68 

013550 

004737 

014060 



JSR 

PC.CMPRT 

DISPLAY THE WORD 

69 

013554 

005302 



3$: 

DEC 

R2 

DECREMENT SIZE COUNT 

70 

013556 

003436 




BLE 

7$ 

BR WHEN AT END 

71 

013560 

005303 




DEC 

R3 

DECREMENT PATT POS COUNT 

72 

013562 

001361 




BNE 

2$ 

BR IF NOT AT END OF PATT 

73 

013564 

000755 




BR 

IS 

RESTART THE PATTERN 

74 

013566 

005761 

177776 


4$: 

TST 

-2(R1) 

IS MJSCOMPARED CHARACTERS 

75 

013572 

001410 




BEQ 

5S 

BR IF YES 

76 

013574 

012737 

177777 

001354 


MOV 

#-1 .ZROIND 

ERCTR 

SET NON-ZERO MISCOMPARED INDCATOR 

77 

013602 

005237 

001364 



INC 

INCREMENT THE ERROR COUNTER 

78 

013606 

004737 

014060 



JSR 

PC.CMPRT 

REPORT ERROR 

79 

80 
81 

013612 

000760 




BR 

3S 

CONTINUE COMPARE 

013614 

105737 

001356 


5$: 

TSTB 

FRSTER 

FIRST ERROR? 

82 

013620 

100407 




BMI 

6S 

BR IF NOT 

83 

013622 

005037 

001354 



CLR 

ZROIND 

SET THE ZERO INDICATOR 

84 

013626 

010137 

001360 



MOV 

R1.SAVER1 

SAVE CURRENT R1 

85 

013632 

010537 

001362 



MOV 

R5, SAVERS 

SAVE CURRENT R5 

86 

013636 

000746 




BR 

3S 

CONTINUE COMPARE 

87 

013640 

005737 

001354 


6$: 

TST 

ZROIND 

ANY MISCOMPARIONS NOT ZEROS ? 

88 

013644 

001743 




BEQ 

3S 

BR IF NONE-ALL ERRORS=ZERO 

89 

013646 

004737 

014060 



JSR 

PC.CMPRT 

REPORT ERROR 

90 

91 

92 

013652 

000740 




BR 

3S 

CONTINUE COMPARING 

013654 

126027 

000024 

000005 

7$: 

CMP8 

SCODE(RO) ,#5 

READ HEAD AND DATA ? 

93 

013662 

001414 




BEQ 

9$ 

YES 

94 

013664 

013702 

001370 


8S: 

MOV 

CMCNT.R2 

SET COUNTER = REMAIN BUFFER LENGTH 

95 

015670 

020227 

000004 



CMP 

R2,#4 

IS THERE AT LEAST 4 WORDS TO NATCH PATTERN ? 

96 

013674 

002466 




BLT 

CMPRX 

BR IF NO 

97 

013676 

162737 

000400 

001370 


SUB 

#256. .CMCNT 

GREATER THAN A SECTOR ? 

98 

013704 

003675 




BLE 

CMDAT 

NO .RETURN TO COMPARE LOOP 

99 

013706 

012702 

000400 



MOV 

#256. ,R2 

SET COUNTER SECTOR SIZE 

100 

101 

102 

013712 

000672 




BR 

CMDAT 

RETURN TO COMPARE LOOP 

013714 

023727 

001370 

000002 

9$: 

CMP 

CMCNT .#2 

IS THERE AT LEAST 2 WORDS TO COMPARE HEADER ? 

103 

013722 

002453 




BLT 

CMPRX 

BR IF NO 

104 

013724 

105237 

001374 



INCB 

CMSEC 

INCREMENT COUNTER 

105 

013730 

123737 

001374 

001424 


CMP8 

CMSEC.SECLMT 

MAX SECTOR # ? 

106 

i/13736 

101424 




BLOS 

10S 

NO 

107 

013740 

105037 

001374 



CLRB 

CMSEC 

RESET SECTOR # 

108 

013744 

105237 

001375 



INCB 

CMTRK 

INCREMENT TRACK # 

109 

013750 

123737 

001375 

001426 


CMP8 

CMTRK. TRKLMT 

MAX TRACK # ? 

110 

013756 

101414 




BLOS 

10S 

NO 

111 

013760 

105037 

001375 



CLRR 

CMTRK 

RESET TRACK # 

112 

013764 

005237 

013746 

001372 



INC 

CMCYL 

INCREMENT CYLINDER NUMBER 

113 

013770 

001372 

170000 



MOV 

CMCYL.-(SP) 

GET COMPARING CYLINDER 

114 

013774 

042716 



BIC 

#170000. (SP) 

SAVE ONLY THE CYLINDER BITS 



I 
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115 014000 

022637 

001422 



CMP 

(SP)*.CYLIMT 

116 014004 

101401 




BLOS 

10$ 

117 014006 

118 

119 014010 

000421 




BR 

CMPRX 

012705 

001372 


10$: 

MOV 

# CMCYL.R5 
#170006. (R1) 
<R5) + , (Rl )♦ 

120 014014 

052711 

170000 



BIS 

121 014020 

022521 




CMP 

122 014022 

123 014024 

001402 

004737 

013466 



BEQ 

JSR 

11$ 

PC.CMSTR2 
(R5>*. (Rl )♦ 

124 014030 

022521 



11$: 

CMP 

125 014032 

001402 




BEQ 

12$ 

126 014034 

004737 

013466 



JSR 

PC.CMSTR2 

127 014040 

162737 

000002 

001370 

12$: 

SUB 

#2.CMCNT 

CMPRX 

128 014046 

003401 




BLE 

129 014050 

130 

131 014052 

000705 




BR 

8$ 

004737 

014334 


CMPRX: 

JSR 

PC.ENDCMP 

132 014056 

133 

134 

135 

136 014060 

000207 




RTS 

PC 




.-TYPE 

DATA COMPARE ERRORS 

005737 

001360 


CMPRT : 

TST 

SAVER1 

137 014064 

001010 




BNE 

2$ 

138 014066 

105737 

001356 



TSTB 

FRSTER 

139 014072 

100402 




BMI 

1$ 

140 014074 

004737 

014154 



JSR 

PC, 4$ 

141 014100 

004737 

014236 


1$: 

JSR 

PC, 8$ 

142 014104 

143 014106 

000422 



2$: 

BR 

3$ 

RI.-(SP) 

014106 

010146 




MOV 

014110 

010546 




MOV 

R5.-(SP> 

144 014112 

013701 

001360 



MOV 

SAVER1 ,R1 

145 014116 

013705 

001362 



MOV 

SAVER5.R5 

146 014122 

004737 

014154 



JSR 

PC, 4$ 

147 014126 

004737 

014236 



JSR 

PC, 8$ 

148 014132 

005037 

001360 



CLR 

SAVER 1 

149 014136 

005037 

001362 



CLR 

SAVER5 

150 014142 

012605 




MOV 

<SP)+,R5 

014144 

012601 




MOV 

(SPH.R1 

151 014146 

004737 

014236 



JSR 

PC, 8$ 

152 014152 

153 

000207 



3$: 

RTS 

PC 

154 014154 

105737 

001356 


4$: 

TSTB 

FRSTER 

155 014160 

100425 




BMI 

7$ 

156 014162 

001013 




BNE 

5$ 

157 014164 

004737 

021134 



JSR 

mr 

PC.LINE2 

158 0*4170 

104414 

071610 



DISPLY 

159 014174 

004737 

021214 



JSR 

160 014200 

004737 

021662 



JSR 

PC.LINE3A 

161 014204 

004737 

022324 



JSR 

PC.LINE4 

162 014210 

000404 




BR 

6$ 

163 014212 

104414 

074366 


5$: 

DISPLY 

,LIN9B 

164 014216 

104414 

001203 



DISPLY 

,$CRLF 

165 014222 

166 

167 014226 

104414 

074415 


6$: 

DISPLY 

,LIN9H 

012737 

177777 

001356 


MOV 

#-1. FRSTER 

168 014234 

000207 



7$: 

RTS 

PC 


SEO 0086 


LAST CYLINDER ? 

NO 

NORMAL RE TURN .NOT WRAP AROUND 

ADDRESS OF COMPARING CYLINDER 

SET BITS INCASE BAD SECTOR ENCOUNTER 

COMPARE 1ST HEADER WORD 

MATCH 

NOT MATCH 

SECOND WORD OF HEADER 

MATCH 

NOT MATCH 

ADJUST WORD COUNT 

COMPARE IS DONE 

RETURN TO COMPARE LOOP 

PRINT LAST LINE IF ERRORS 


PRINT SAVED VALUES ? 

BR IF YES 
FIRST ERROR? 

BR IF NOT 

PRINT INITIAL MESSAGE INFO 
PRINT REMAINDER OF MESSAGE 
EXIT 

.•PUSH R1 ON STACK 

;PUSH R5 ON STACK 

DISPLAY SAVED R1 

DISPLAY SAVED R5 

PRINT INITIAL MESSAGE INFO 

PRINT SAVED VALUES 

CLEAR SAVED RE6ISTER INDICATORS 

CLEAR THE OTHER ONE 

;POP STACK INTO R5 

;POP STACK INTO R1 

PRINT REMAINDER OF MESSAGE 

RETURN 

FIRST ERROR ? 

BR IF NOT 

BR IF FIRST ERROR AND PROCESSING ’DCK' ERROR 

PRINT LINE 1 OF ERROR MESSAGE 

DATA COMPARE ERROR 

PRINT LINE 2 OF ERROR MESSAGE 

PRINT LINE 3A OF ERROR MESSAGE 

PRINT LINE 4 OF ERROR MESSAGE 

GO TO TYPE HEADER 

PRINT 'DATA COMPARISON ERRORS' 

CR-LF 

PRINT ' EXPCTD RECEVD 

LOC DATA DATA' 

SET FIRST ERROR FLAG 
RETURN 
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SEQ 0087 


170 01A236 

005737 

001366 

8S: 

TST 

LIMIT 

TYPEOUT LIMIT REACHED ? 

171 01A2A2 

001 A03 


BEQ 

vS 

BR IF IT HAS 

172 01A2AA 

005337 

001366 


DEC 

LIMIT 

DECREMENT LIMIT COUNTER 

173 01A250 

001005 



BNE 

10S 

BR IF NOT AT LIMIT 

17A 01A252 

032777 

000200 16A67A 

9S: 

BIT 

#SW07.aSUR 

PRINT ALL DATA COMPARE ERRORS ? 

175 01A260 

001 0C1 



BNE 

10S 

BR IF YES 

176 01A262 

177 

178 01A26A 

000207 



RTS 

PC 

RETURN 

0101A6 


10S: 

MOV 

R1. -(SP) 

BUFFER ADDRESS 

179 01A266 

162716 

000002 


SUB 

#2,($P) 

ADJUST ADDRESS 

180 01A272 

00A737 

023202 


JSR 

PC.LINOCT 

TYPE IT 

18 1 01A276 

10441 A 

075233 


DISPLY 

.BLNKS2 

TYPE 2 BLANKS 

182 01A302 

0165A6 

177776 


MOV 

-2(R5).-(SP) 

PC.LINOCT 

PUT GOOD DATA ON THE STACK 

183 01A306 

00A737 

023202 


JSR 

TYPE IT 

18A 01A312 

10AA1A 

075233 


DISPLY 

.BLNKS2 

TYPE 2 BLANKS 

185 01A316 

0161A6 

177776 


MOV 

-2(R1),«(SP) 

BAD DATA 

186 01A322 

OOA737 

023202 


JSR 

PC.LINOCT 

TYPE IT 

187 01A326 

10AA1A 

001203 


DISPLY 

.SCRLF 

CR-LF 

188 01A332 

000207 



RTS 

PC 

RETURN 


.-LAST LINE OF COMPARE ERROR REPORTING 


192 01A33A 

105737 

001357 

END CMP: TSTB 

FRSTER+1 

ANY COMPARE ERRORS FOUND ? 

193 01A3A0 

001A17 


BEQ 

2S 

BR IF NOT 

19A 01A3A2 

005737 

001 36A 

TST 

ERCTR 

SEE HOW MANY ERRORS 

195 01A3A6 

001A10 


BEQ 

IS 

BR IF ONLY CAN'T MATCH PATTERN 

196 01A350 

10AA1A 

07A531 

DISPLY 

.LIN9E 

'NUMBER OF ERRORS*’ 

197 01A35A 

0137A6 

001 36A 

MOV 

EPCTR.-(SP) 

NUMBER OF ERRORS 

198 01A360 

004737 

02323A 

JSR 

PC.LINDEC 

TYPE IT 

199 01A36A 

10AA1A 

001203 

DISPLY 

.SCRLF 

CR-LF 

200 01A370 

00A737 

02A7A0 

IS: JSR 

PC.INCTOT 

INCREMENT TOTAL ERROR COUNT 

201 01A37A 

00A737 

0227A6 

JSR 

PC.LINE7 

PRINT LINE 7 OF ERROR MESSAGE 

202 01AA00 

000207 


2S: RTS 

PC 

RETURN 


215 



• 

§ 

MOV 

#8UFFER,R1 

216 



■ 

0 

JSR 

PC .MATCH 

217 



• 

0 

RETURN1 


218 



0 

RETURN2 


219 

220 014402 

010146 


MATCH: 

MOV 

R1,-(SP) 

225 014404 

013704 

001472 


MOV 

PATTERN, R4 

226 014410 

001402 



BEQ 

IS 

227 014412 

006304 



ASL 

R4 

228 014414 

000416 



BR 

4S 

229 014416 

012704 

000044 

IS: 

MOV 

#44, R4 

230 014422 

011601 


2S: 

MOV 

(SP).RI 

231 014424 

162704 

000002 


SUB 

#2,R 4 

232 014430 

001413 



BEQ 

5S 

233 014432 

016405 

002324 


MOV 

STNDAT (R4) ,R5 

234 014436 

012703 

000004 


MOV 

#4,R 3 

235 014442 

022125 


3S: 

CMP 

(R1)+. (R5)+ 


ROUTINE TO MATCH THE DATA WITH A PATTERN. ONLY WHEN LOCATION 'PATTERN' 
IS EQUAL TO 0 (RAND ON DATA PATTERN MODE). OTHERWISE. THIS ROUTINE WILL 
RETURN THE ADDRESS OF THE EXPECTED FIXED DATA PATTERN IN R4. 

CALL: 

MOV #8UFFER,R1 .’SUFFER ADDRESS 

JSR PC .MATCH 

RETURN1 .PATTERN ADDRESS IN R4 

RETURN2 .-COULDN'T MATCH PATTERN 

1ATCH: MOV Rl.-(SP) .‘SAVE R1 ON THE STACK 

MOV PATTERN, RA ;WAS RANDOM PATTERN ENABLED ? 

BEQ IS ;BR IF YES 

ASL RA ;* 2 

8R AS ;USE KNOWN PATTERN 

S: MOV #44, R4 .-PATTERN TABLE INDEX 

$: MOV (SP).RI .-RELOAD R1 

SUB #2,R4 .-DECREMENT INDEX 

BEQ 5S ;BR IF PATTERN NOT MATCH 

MOV STNDAT (RA) ,R5 .-ADDRESS OF PATTERN ADDRESS 

MOV #4,R3 .-NUMBER OF LOCATIONS TO CHECK 

;S: CMP (Rl)+. (R5)+ .COMPARE THE BUFFER AGAINST THE PATTERN 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 13-4 
MAIN PROGRAM 


K 1 


SEQ 0088 


236 014444 

001366 




BNE 

2$ ;l 

237 014446 

005303 




DEC 

R3 

238 014450 

001374 




BNE 

3$ 

239 014452 

062704 

002324 


4$: 

ADD 

ASTNDAT.R4 

240 014456 

000403 




BR 

6$ 

241 014460 

062766 

000002 

000002 

5$: 

ADD 

#2,2( SP) 

<SP)*,R1 

242 014466 

012601 



6$: 

MOV 

243 014470 

244 

000207 




RTS 

PC 

245 




;USE 

ECC TO CORRECT THE DATA ERRO 

246 

247 014472 

016037 

002144 

001400 

ECC: 

MOV 

SRNBA(RO) .ECSEC ; 

248 014500 

016046 

002142 



MOV 

SRNWC(RO) ,-(SP) ; 

249 014504 

066016 

000020 



ADD 

SWRDL(ROMSP) ; 

250 014510 

001002 




BNE 

IS 

251 014512 

005726 




TST 

ISP)* 

252 014514 

000207 




RTS 

PC 

253 014516 

005046 



1$: 

CLR 

-(SP) 

254 014520 

016046 

000022 



MOV 

SSSEC .1U),-(SP) ; 

255 014524 

004737 

032040 



JSR 

PC.SDIV 

256 014530 

005716 




TST 

(SP) 

257 014532 

001413 




BEQ 

2S 

258 014534. 

006316 




ASL 

(SP) 

259 014536 

161637 

001400 



SUB 

(SP). ECSEC 

260 014542 

122760 

000005 

000024 


CMP8 

#5.$C0DE(R0) 

261 014550 

001007 




BNE 

3$ 

262 014552 

062737 

000004 

001400 


ADD 

#4. ECSEC 

263 014560 

000403 




BR 

3$ 

264 014562 

162737 

001000 

001400 

2$: 

SUB 

#256. *2. ECSEC ; 

265 014570 

062706 

000004 


3$: 

ADD 

#4,SP 

266 014574 

016037 

002204 

001376 


MOV 

SRMEC1 (RO) .ECBIT 

267 014602 

005337 

001376 



DEC 

EC8IT 

268 014606 

013737 

001376 

001406 


NOV 

ECBIT, ECURD ; 

269 014614 

042737 

177760 

001376 


BIC 

#*C17. ECBIT 

270 014622 

042737 

000017 

001406 


BIC 

#17, ECURD 

271 014630 

006237 

001406 



ASR 

ECURD 

272 014634 

006237 

001406 



ASR 

ECURD 

273 014640 

006237 

001406 



ASR 

ECURD 

27 4 014644 

104414 

074606 



DISPLV 

.LJN10A 

275 014650 

013746 

001406 



NOV 

ECURD, -(SP) 

276 014654 

006216 




ASR 

(SP) 

277 014656 

004737 

033230 



JSR 

PC.SS82D 

278 014662 

004737 

032364 



JSR 

PC.SSUPRL 

279 014666 

104414 

074642 



DISPIY 

.LIN10B ; 

280 014672 

063737 

001400 

001406 


ADD 

ECSEC, ECURD 

281 014700 

026037 

002144 

001406 


CNP 

SRNBA(RO). ECURD ; 

282 014706 

101002 




BHI 

4S 

283 014710 

000137 

015224 



JMP 

ECC2 

284 

285 014714 

016037 

002206 

001402 

4$: 

NOV 

$RNEC2(R0) .ECNSKO 

286 014722 

005037 

001404 



CLR 

ECNSK1 

287 014726 

005337 

001376 


5$: 

DEC 

ECBIT 

288 014732 

002405 




BLT 

6$ 

239 014734 

006337 

001402 



ASL 

ECNSKO 

290 014740 

006137 

001404 



ROL 

ECNSK1 

291 014744 

292 

000770 




BR 

51 


’S COMP) 


:ECC POSITION COUNT 


IN OATA FIELD OF ERROR SECTOR* 


.GET THE ERROR BIT MASK 
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7 


SEQ 0089 


293 014746 

017737 

164434 

001412 

6S: 

MOV 

BE CURD, ECBADO 

294 014754 

013746 

001402 



MOV 

ECMSKO.-(SP) 

295 014760 

047716 

164422 



BIC 

BE CURD. (SP) 

296 014764 

043777 

001402 

164414 


BIC 

ECMSKO.BECURD 

297 014772 

298 

299 014776 

052677 

164410 



BIS 

(SP)*, BE CURD 

005737 

001404 



TST 

ECMSK1 

300 015002 

001415 




BEO 

7$ 

301 015004 

013737 

001406 

001414 


MOV 

ECWRD.ECURD1 

302 015012 

062737 

000002 

001414 


ADD 

#2.ECWRD1 

303 015020 

026037 

002144 

001414 


CMP 

tRMBA(RO) .ECWRI 

304 015026 

101006 




BHI 

8$ 

305 015030 

005737 

001402 



TST 

ECMSKO 

306 015034 

001473 




BEO 

ECC2 

307 015036 

005037 

001414 


7$: 

CLR 

ECWRD1 

308 015042 

309 

310 015044 

000414 




BR 

ECC1 

017737 

164344 

001420 

8$: 

MOV 

BECURDl .ECBAD1 

311 015052 

013746 

001404 



MOV 

ECMSKI.-(SP) 
BECURDl, (SP) 
ECMSK1, BECURDl 
(SP )*. BECURDl 

312 015056 

047716 

164332 



BIC 

313 015062 

043777 

001404 

164324 


BIC 

314 015070 

315 

316 015074 

052677 

164320 



BIS 

104414 

075006 


ECC1: 

DISPLY 

.LIN10H 

ECURD, -(SP) 

321 015100 

013746 

001406 



MOV 

015104 

004737 

023202 



JSR 

PC.LINOCT 

015110 

104414 

075233 



DISPLY 

.BLNKS2 

ECBADO, -(SP) 

015114 

013746 

001412 



MOV 

015120 

004737 

023202 



JSR 

PC.LINOCT 

015124 

104414 

075233 



DISPLY 

.BLNKS2 
•ECURD, -(SP) 

015130 

017746 

164252 



MOV 

015134 

004737 

023202 



JSR 

PC.LINOCT 

015140 

322 

323 015144 

104414 

075233 



DISPLY 

.8LNKS2 

005737 

001414 



TST 

ECURD1 

324 015150 

001427 




BEO 

ECCX 

325 015152 

104414 

001203 



DISPLY 

,$CRL F 

ECWRDI.-(SP) 

330 015156 

013746 

001414 



MOV 

015162 

004737 

023202 



JSR 

PC.LINOCT 

-8LNKS2 

EC8AD1 ,-(SP) 
PC.LINOCT 

015166 

104414 

075233 



DISPLY 

015172 

013746 

001420 



MOV 

015176 

004737 

023202 



JSR 

015202 

104414 

075233 



DISPLY 

.BLNKS2 

BECURDl .-(SP) 

PC.LINOCT 

.BLNXS2 

015206 

017746 

164202 



MOV 

015212 

004737 

023202 



JSR 

015216 

104414 

075233 



DISPLY 

331 015222 

332 

333 015224 

000402 




BR 

ECCX 

104414 

074702 


ECC2: 

DISPLY 

.LIN10C 

334 015230 

104414 

001203 


ECCX: 

DISPLY 

.SCRLF 

335 015234 

336 

000207 




RTS 

PC 

337 

338 

339 015236 




.ROUTINE TO DISPLAY THE SECTOR 

032777 

000010 

163710 

PRTBAD : 

BIT 

#SU3,BSUR 

340 015244 

001520 




BEO 

8$ 

341 015246 

016001 

002144 



MOV 

$RMBA(R0),R1 


SAVE THE INCORRECT WORD 
PU'i LOWER MASK ON STACK 
CLEAR ERRONEOUS ONE BITS FROM MASK 
CLEAR ERRONEOUS ONE BITS FROM BAD WORD 
SET DROPPED BITS 

DOES ERROR GO INTO NEXT WORD ? 

BR IF NO 

DUPLICATE ADDRESS 
INCREMENT ERROR ADDRESS 

;IS NEXT WORD IN THE BUFFER ? 

BR IF YES. ELSE, 

WAS ERROR IN FIRST WORD ? 

BR IF NO 

CLEAR 2ND WORD ADDRESS 
PRINT WORD CORRECTED 

SAVE THE SECOND BAD WORD 

PUT THE UPPER MASK ON THE STACK 

CLEAR ERRONEOUS ONE BITS FROM UPPER MASK 

CLEAR ERRONEOUS WE BITS FROM DATA WORD 

SET DROPPED BITS 

HEADER 

PUT ECURD ON THE STACK 

TYPE ECURD 

TYPE 2 BLANKS 

PUT ECBADO ON THE STACK 

TYPE ECBADO 

TYPE 2 BLANKS 

PUT BE CURD ON THE STACK 

TYPE BECWRD 

TYPE 2 BLANKS 

PRINT THE NEXT WORD ? 

BR IF NOT 
CR-LF 

PUT ECURD1 ON THE STACK 

TYPE ECURD1 

TYPE 2 BLANKS 

PUT EC8AD1 ON THE STACK 

TYPE EC8AD1 

TYPE 2 BLANKS 

PUT 3ECURD1 ON THE STACK 

TYPE BECURDl 

TYPE 2 BLANKS 

EXIT 

ERROR BURST WAS NOT TRANSFERED TO MEMORY 

CR-LF 

RETURN 


.-PRINT THE BAD SECTOR ? 

;BR IF NOT 

;PUT THE END ADDRESS INTO Si 




MOV 

JSR 

RETURN 
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SWRDL (RO) ,-(SP; 
SRMWC (RO) , (SP) 

1 $ 

(SP) + 


PC 

-(SP) 

$SSEC(RO),-(S P) 

PC.SDIV 

(SP) 

2 $ 

<S°) 

(SiO ,R1 
3S 

#256. *2. R1 
#5.SCODE(RO) 

3S 

A4.R1 

A4.SP 

.SCRLF 

.LINIIH 

#5,SC0DE(R0) 

41 

.LIN1 1 

R1 ,-(SP) 

PC.LINOCT 

.8LNKS3 

(RD+.-CSP) 

PC.LINOCT 

.BLNKS1 

(R1)*.-(SP> 

PC.LINOCT 

.SCRLF 


FIND THE BEGINNING OF THE SECTOR 
SUBTRACT THE WORDS NOT TRANSFERED 

RESTORE STACK 

EXIT— NO WORDS XFERRED 

HAKE THE UPPER DIVIDEND 0 

DIVIDE THE WORDS XFERED BV THE SECTOR SIZE 

DIVIDE 

REMANDER = 0 ? 

BR IF IT IS - COMPLETE SECTOR TRANSFERED 
CONVERT THE RESIDUAL SECTOR INTO BYTE COUNT 
TUBTRACT IT FROM THE END ADDRESS 
FINISH THE SIZING 

SUBTRACT FULL SECTOR FROM END ADDR (IN BYTES) 
WAS OPERATION READ HEADER t DATA ? 

BR IF NOT 

SUBTRACT HEADER SIZE FROM ADDR 
RESTORE THE STACK POINTER 
CR-LF 

PRINT THE HEADER 

WAS OPERATION READ HEADER t DATA ? 

BR IF NOT 

TYPE 'ADDR HEADER* 

PUT THE ADDRESS ON THE STACK 

TYPE THE ADDRESS 

TYPE 3 BLANKS 

PUT WORD ON STACK 

TYPE THE 1ST HEADER WORD 

TYPE 1 BLANK 

PUT WORD ON STACK 

TYPE THE 2ND HEADER WORD 

CR-LF 


AIN11 A 

#a.,R2 

R1,-<SP> 

PCAJNOCT 

.BLNKS2 

R1 ,$RMBA(RO) 

7 $ 

,8LNKS1 
<Rm,-<sp> 
PC AINOCT 
R 2 
6 $ 

$r F 

.SCRLF 

.SCRLF 

PC 


TYPE 'ADDR DATA* 

S. DATA WORDS PER LINE 

PUT THE ADDRESS ON THE STACK 

TYPE THE ADDRESS 

TYPE 2 BLANKS 

PRINTED ALL THE SECTOR ? 

BR IF ALL PRINTED 
TYPE 1 BLANK 

PUT THE DATA ON THE STACK 
TYPE THE DATA 

DECREMENT THE HORIZONTAL COUNT 
BR IF NOT AT THE END OF THE LINE 
CR-LF 

RESTORE THE WORDS/LINE COUNT 

CR-LF 

CR-LF 

RETURN 


AN RTC - DRIVE SELECTED IN RO 


ADP8.R0 ;DP8 ADDRESS 

PC.RTNCTR 
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SEQ 0091 


399 015510 

400 01 5514 

401 015522 

402 015526 

403 015530 
AOA 015532 
A05 

A06 

A07 

A08 

A09 

A10 

All 

A12 01553A 
A13 0155A0 
A1A 0155A6 
A15 01555A 
A16 015560 
A17 015562 
A18 01556A 
A19 015570 
A20 015572 
A21 015576 
A22 015602 
A23 015606 
A2A 015612 
A25 015616 
A26 015622 
A27 
A28 
A29 
A 30 
A31 
A32 
A33 

A3A 01562A 
A35 015632 
A 36 015636 
A 37 0156A0 
A38 0156A2 
A39 0156A6 
AAO 015650 
AA1 
A58 
A59 
A 60 
A61 
A62 
A63 
A6A 
A65 
A66 

A67 01565c. 
A68 015660 
A69 015666 
A70 01567A 
A 71 015700 


111037 067556 
112737 000117 
00A037 0A1000 
067556 
00077A 
000207 


010037 

116060 

112760 

0OA037 

000000 

00077A 

005760 

001775 

OOA737 

012660 

112660 

112660 

005060 

005060 

000207 


067560 


RTNCTR: M0V8 (RO).GENDPB .'MOVE THE DRIVE 0 TO THE GENERAL DPS 
M0V8 fRTC.GENDPB+SCOMND ; COMMAND CODE 
1$: JSR R0.RM80 .'DRIVER ENTRANCE 

GENDP8 ;DPB ADDRESS FOR COMMAND 

BR 1$ .'DRIVER DIDN’T ACCEPT COMMAND 

RTS PC .'RETURN 

.•ROUTINE TO DO A RECALIBRATE USING ACTIVE DPS 
’ CALL * 

; ’ MOV fDPB.RO ;DPB ADDRESS 

; JSR PC.RECALT 

; RETURN 


015560 

0021A0 

000107 

0A1000 


000016 

02325A 

00003A 

000033 

000032 

000012 

000010 


000027 

000002 


RECALT: MOV 
MOVB 
MOVB 
1$: JSR 

2$: .WORD 

BR 

3S: TST 

BEQ 
JSR 
MOV 
MOVB 
MOVB 
CLR 
CLR 
RTS 


R0.2$ ;LOAD THE DP8 ADDRESS 

SRMCS1<R0).SPREV0(R0> .'SAVE THE PREVIOUS COMMAND 

fRECAL.SCOMND(RO) .'LOAD THE NEW COMMAND 


wni, vnt cf WWMF 14 / \ » kwnv ink tikw v. urrrvw 

R0.RM80 .-START THE RECALIBRATE 

0 ;DP8 ADDRESS 

1$ .-DRIVER DIDN’T ACCEPT THE COMMAND 

STATUS (RO) ;SEE IF FINISHED 

3 $ ; IF EO NO 

PC.READDR ; DECREMENT THE ADDRESSES 

<SP)+.SPREVA*2<R0> .-MOVE THE CYLINDER ADDRESS 

(SP ) ♦ .SPREVA+KRO) .MOVE THE TRACK ADDRESS 

(SP) ♦.SPREVA(RO) .-MOVE THE SECTOR ADDRESS 

SCYL(RO) .-CLEAR THE CURRENT CYLINDER ADDRESS 

SSEC(RO) .CLEAR THE CURRENT TRK/SEC ADDRESS 

PC .-RETURN 


112737 000107 
004037 041000 
067556 
000774 

005737 067574 

001775 

000207 


.-ROUTINE TO A RECAL WITH NO DPB ACTIVE 
.-CALL: 

; MOVB #DRIVE.GENDP8 .-DRIVE ADDRESS 

; JSR PC.RECALO 

; RETURN 

067560 RECAIO: MOVB fRECAL.GENDPB+SCOMND .-RELCALI8RATE COMMAND 


JSR 

GENDP8 

BR 

TST 

BEQ 

RTS 


wnwwnL ivwwr u ’ 

R0.RM80 

IS 

GENDPB+STATUS 

2S 

PC 


UTILITY READ HEADER ROUTINE 


CALL: 


MOV fDP8.R0 

MOV fSECTOR.-(SP) 

MOV f TRACK. -(SP) 

MOV fCYLINDER.-(SP) 

JSR PC.READDR 

RETURN 


DRIVER ENTRANCE 

DPB ADDRESS FOR COMMAND 

DRIVER DIDN'T ACCEPT THE COMMAND 

SEE IF FINISHED 

BR IF NOT FINISHED 


DPB ADDRESS 
SECTOR ADDRESS 
TRACK ADDRESS 
CYLINDER ADDRESS 


116637 000004 
116637 000006 
016637 000002 
111037 067556 
112737 000173 


067567 

067566 

067570 

067560 


READHD: MOVB 
MOVB 
MOV 
MOVB 
MOVB 


4(SP) .GENDPB+STRK 
6<SP),GEN0P8+SSEC 
2<SP),GENDPB*SCYL 
(RO).GENDPB ;l 


\nv/ j wk'vvi w « rn 

fRDHD . GENDPB+SCOMND 


.-TRACK ADDRESS 
.-SECTOR ADDRESS 
.-CYLINDER ADDRESS 
DRIVE NUMBER 
ND .COMMAND 
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B 8 


SEQ 009 2 


472 01^706 

473 015714 

474 015720 

475 015722 

476 015724 

477 015730 

478 015732 

479 015736 

480 01 5742 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 015744 

492 015750 

493 015754 

494 015756 

495 015760 

496 015764 

497 015770 

498 015772 

499 016000 

500 016002 

501 016006 

502 016010 

503 016014 

504 016016 

505 016020 

506 016026 

507 016030 

508 016034 

509 016042 

510 016044 

511 016046 

512 016052 

513 016056 

514 016060 

515 016062 

516 016066 


012737 

177776 067562 


MOV 

004037 

067556 

000774 

041000 

IS: 

JSR 

GENDPB 

BR 

005737 

001775 

067574 

2S: 

1ST 

BEQ 

011666 

000006 


MOV 

062706 

000207 

000006 


ADD 

RTS 


004737 

016710 


SRETRY: 

JSR 

005760 

000016 


IS: 

1ST 

001775 




BEO 

100405 




BM1 

105237 

001331 



INCB 

062716 

000002 



ADD 

000425 




BR 

032760 

000200 

000016 

2S: 

BIT 

001430 




BEO 

005737 

001326 



TST 

001004 




BNE 

005760 

002154 



TST 

001014 




BNE 

000404 




BR 

033760 

001326 

002154 

3S: 

BIT 

001407 




BEO 

105237 

001331 


4S: 

INCB 

123737 

001330 

001331 


CMPB 

001340 




BNE 

000207 



5S: 

RTS 

004737 

023170 


6S: 

JSR 

004737 

022746 



JSR 

005726 




TST 

000207 




RTS 

104414 

074343 


7S: 

DISPLY 

000137 

007356 



JMP 


#-2,GENDPB*S«CNT 

R0.RM80 

IS 

^ENDPB+STATUS 

(SP).6(SP) 

#6,SP 

PC 


RETRY THE PRESENT OPERATION 
CALL: 

MOV tf.OUNT, RETRY 

JSR PC, SRETRY 

RETURN1 
RETURN2 


PC.GODRIV 
STATUS CRO) 

IS 

2S 

RETRY+1 
02 ,<SP> 

5S 

#81 T7, STATUS (RO) 

7S 

MASK 

3S 

SRMER1 (RO) 

6S 

4S 

MASK.SRNERKkO) 

6S 

RE TRY +1 
RE TRY, RE TRY+1 
SRETRY 
PC 

PC,LIN£8 

PC.LINE7 

(S&* 

PC 

.LIN8M 

Irprci 


:WORD CTR = 2 
DRIVER ENTRANCE 
DPB ADDRESS FOR COMMAND 
DRIVER DIDN'T ACCEPT COMMAND 
FINISHED? 

BR IF NOT 

ADJUST STACK FOR °ETURN 
ADJUST RETRUN POINTER 
RETURN 


RETRY COUNT 

RETRY UNSUCESSFUL 
SUCESSFUL RETRY 

NOTE: IF A DIFFERENT ERROH OCCURS DURING 
RETRY, THE ROUTINE EXITS TO 'ERPRC1' 

RE-START COMMAND 
COMMAND FINISHED? 

BR IF NOT 
BR IF ERROR 
INCREMENT RETRY COUNT 
INCREMENT RETURN 

GO TO EXIT __ 

;DJD COMMAND TERMINATE NORMALLY ? 

BR IF NOT 
IS ERROR MASK 0 ? 

BR IF NOT 

MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 
BR IF NOT 
CONTINUE RETRY 
SAME ERROR? 

BR IF NOT 

INCREMENT RETRY COW 
LONE ? 

BR IF NOT DONE 
RETURN 

REPORT DIFFERENT ERROR 

PRINT LINE ? „ _ 

ADJUST STACK POINTER FOR DIRECT RETURN 

RETURN 

'DIFFERENT ERROR DURING RETRY 1 
REPORT THE ERROR 



SEQ 0093 
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1 

2 

3 

A 

5 

6 

7 016072 

8 016100 
9 016102 

10 016110 
11 016116 
12 016120 
13 

1A 016124 

15 016132 

16 016134 

17 016142 

18 016144 

19 016152 

20 016156 

21 016160 

22 016164 

23 

24 016170 

25 016176 

26 016200 

27 016206 

28 016212 

29 016220 

30 016224 

31 016226 

32 016232 

33 016236 

34 

35 016240 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 016242 

46 016244 

47 016246 

48 016250 

49 016254 

50 016256 

51 016262 

52 016270 

53 016272 

54 016274 

55 016276 

56 016302 

57 016304 


032760 

001456 

016037 

166037 

001447 

006237 

122760 

0G1404 

122760 

001012 

063760 

005560 

102004 

005060 

005260 

122760 

001417 

063760 

005560 

063760 

005560 

102004 

005060 

005260 

000207 

000000 


ROUTINE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 
CALL: 

MOV fDPB.RO ;DP8 ADDRESS 

JSR PC.STATIS 

RETURN 


000300 000016 


002144 

000006 

016240 


016240 

016240 


STATIS: BIT 
BEQ 
MOV 
SUB 
BEO 
A SR 


000002 000024 
000000 000024 


000060 


016240 

000062 

000062 

000056 


000002 000024 


016240 

000040 

016240 

000070 

000070 

000064 


000036 

000066 


#BIT07!BIT06, STATUS (RO) .-CHECK FOR DATA TERMINATION 
3$ ;BR IF NOT DATA TERMINATION 

|RMBA(RO).FACTOR ;STORE THE FINAL BUFFER ADDRESS 

SBUF(RO), FACTOR .-SUBTRACT THE INITIAL ADDRESS 
3$ ;BR IF NO DATA TRANSFER 

FACTOR ; CONVERT TO A WORD COUNT 

#2,SC0DE(R0) ;SEE IF COMMAND WAS A WRITE 

1$ .-BRANCH IF YES 

#O.SCODE(RO) .-PRESENT OPERATION AN AUTO WRITE CHECK ? 

2$ ;BR IF NO 

FACTOR.SWRITN(RO) .ADD WORDS WRITTEN DURING WRITE DATA 

SWRITN+2(R0) ;DID HIGH WORD OVFLO AFTER ADDIN6 CARRY ? 

2 | . 0 £ ff hq 

$WRITN*2(R0) 'CLEAR HIGH WORD 

SWTOFL(RO) .'AND COUNT WRITE OVERFLOW 

#2.$C0DE(R0) .-SEE IF COMMAND WAS A WRITE 

31 -BRANCH IF YES 

FACTOR. SENDATCROJ ,'END OF PASS DATA WORD COUNT 

SENDAT*2(R0) ;ADD ANY CARRY 

FACTOR .SREAD (RO) .'UPDATE THE READ WORD COUNT 

$READ+2(R0) .'DID HIGH WORD OVFLO AFTER ADDING CARRY ? 

3$ *br IF NO 

$READ+?(RG) -CLEAR HIGH WORD 

SRDOFL(RO) .AND COIMT READ OVERFLOW 

PC 


FACTOR: .WORD 


ROUTINE TO GET A BUFFER 
CALL: _ 

MOV fDP6.R0 

CLR -(SP) 

JSR PC.GETBUF 

RETURN 


010146 

010246 

010346 

013702 001654 
001444 

012701 001656 

026061 000020 000002 

101405 

005302 

001434 

062701 000004 
000767 

011166 000010 


GET8UF: MOV 
MOV 


RI.-(SP) 

R2.-ISP) 

R3.-(SP) 


|UFT8L.R2 

I8UFTBL+2.R1 
SWRDL (RO) ,2(R1 ) 
2 $ 

H 

#4.R1 

IS 

(RI).IO(SP) 


.-USED FOR WORDS TRANSFERED 


,*DP8 ADDRESS 
.-CLEAR THE STACK 

.-BUFFER ADDRESS WILL BE ON THE STACK 
.STACK WILL BE ZERO IF NO BUFFER AVAILABLE 

.SAVE R1 
.•SAVE R2 
-SAVE R3 

•NUMBER OF SEPARATE BUFFERS 

;BR IF NONE AVAILABLE 

.FIRST ADDRESS OF ALLOCATION TABLE 

.-SEE IF THERE IS A BLOCK LARGE ENOUGH 

.-BRANCH IF IT IS 

.-DECREMENT TABLE COUNT 

;BR IF THROUGH TABLE 

.-INCREMENT TABLE POINTER 

.-CONTINUE LOOKING 

.-BUFFER ADDRESS TO STACK 



86 016376 

010146 



RcLBUF : 

NOV 

87 016400 

010246 




NOV 

88 016402 

010346 




NOV 

89 016404 

010446 




NOV 

90 016406 

010546 




NOV 

91 016410 

012701 

001656 



NOV 

92 016414 

013702 

001654 



NOV 

93 016420 

001424 




BEO 

94 016422 

016003 

000110 



NOV 

95 016426 

006303 




ASl 

96 016430 

066003 

000006 



ADD 

97 016434 

021103 



1$: 

CNP 

98 016436 

001424 




8E0 

99 016440 

062701 

000004 



ADD 

100 016444 

005302 




DEC 

101 016446 

001372 




BNE 

102 016450 

016011 

000006 



NOV 

103 016454 

016061 

000110 

000002 


NOV 

104 016462 

005237 

001654 



INC 

105 016466 

005202 




INC 

106 016470 

000414 




BR 

107 016472 

016021 

000006 


2$: 

NOV 

108 016476 

016021 

000110 



NOV 

109 016502 

005237 

001654 



INC 

110 016506 

000443 




BR 

111 016510 

016011 

000006 


3$: 

NOV 

112 C16514 

066061 

000110 

000002 


ADD 

113 016522 

010246 



4$: 

NOV 

114 016524 

013702 

001654 



NOV 


14-1 


D 8 


SEQ 0094 


SWRDL(R0).2(R1) 

ADJUST BUFFER WRD CNT 

3$ 

BR IF DIFFERENCE IS ZERO 

SWRDLIRO' 

CONVERT # WORDS TO BYTES 

SWRDL (RO) . (R1 ) 

NAKE NEW STARTING ADDRESS 

SURDKRO) 

RETURN # BYUS TO WORDS 

5$ 

RETURN 

BUF T8L 

DECRENENT ENTRIES COUNT 

5S 

BR IF ALLOCATION TABLE ENPTY 

R2 

DECRENENT TABLE COUNT 

5 $ 

BR IF I TEN WERE LAST ENTRY 

R1 ,R3 

WOVE TABLE POINTER 

#4.R3 

POINT TO NEXT ENTRY 

(R3)*,(R1>* 

(R3)+, (R1 >+ 

NOVE I TENS 

R2 

DECRENENT TABLE COUNT 

4$ 

CONTINUE IF NOT AT END OF TABLE 

<SP>+, R3 

RESTORE R3 

'Sp:+.r 2 

RESTORE R 2 

<SP)+. R1 

RESTORE R1 

PC 

RETURN 

BUFFER BACK IN TABLE j 

fDP8.R0 

PC,RELBUF 

■DPS ADDRESS 

R1 ,-(SP) 

SAVE R1 

R2.-(SP> 

SAVE R2 

R3.-ISP) 

SAVE R3 

R4.-CSP) 

SAVE R4 

R5,-(SP> 

SAVE R5 

f8UFTBL*2.R1 

BEGINNING OF TABLE 

SUFT8L.R2 

ENTRY COUNT 

BR IF ENPTY TABLE 

SHLDWC(RO) ,R3 

TRIAL ADDRESS 

R3 

CHAN6E TO BYTE COUNT 

$8UF(R0> ,R3 

ADDRESS OF HIGHER ADJACENT BLOCX 

(RD.R3 

UPPER ADJACENT BLOCK 

3$ 

BR IF YES 

#4.R1 

INCPENENT POINTER 

R2 

DECRENENT ENTRY COUNT 

1$ 

CONTINUE SEARCHING 

S8UF(R0).(R1) 

PUT THE BUFFER BLOCK INTO THE TABLE 

SHLDWC<r6).2<R1> 

; BLOCK URD CNT 

BUFT8L 

INCRENENT ENTRY COIMT 

R2 

INCRENEN T R2 FOR USE LATER ! 

4$ 

SEE IF A LOWER ADJACENT BLOCK IS IN THE TABLE 

J8UF(R0>KRm 

BLOCK ADDRESS TO TABLE 

SHLDWC(Ru),(R1.? + 

;URD CNT TO TABLE 

BUFT8L 

INCRENENT ENTRY COUNT 

8$ 

EXIT 

S8UF(R0K(R1) 

RELEASED BUFFER IS LOWER ADJACENT 

$HLDWC<r6>,2(R1) 

;INCRENENTED WRD CNT 

R2,-(3P) 

SAVE R2 

BUFT8L.R2 

ENTRY COUNT 
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115 

016530 

012705 

001656 

MOV 

#8UFTBL*2,R5 

116 

016534 

016504 

000002 5S: 

MOV 

2(R5) ,R4 

117 

016540 

006304 


ASL 

R4 

118 

016542 

061504 


ADD 

(R5).R4 

119 

016544 

020411 


CMP 

R4.(R1) 

120 

0165^6 

001406 


BEQ 

61 

121 

0165 ) 

062705 

000004 

ADD 

#4,R5 

122 

016554 

005302 


DEC 

R2 

123 

016556 

001366 


BNE 

5$ 

124 

016560 

005726 


TST 

(SP>* 

125 

016562 

000415 


BR 

8S 

126 

016564 

012602 

6S: 

MOV 

(SPH.R2 

127 

016566 

066165 

000002 000002 

ADD 

2(R1).2(R5) 

128 

016574 

005337 

001654 

DEC 

BUFTBL 

129 

016600 

010105 


MOV 

R1.R5 

130 

016602 

062705 

000004 

ADD 

*4 R5 

131 

016606 

012521 

7$: 

MOV 

(R5)MR1> + 

132 

016610 

012521 


NOV 

(R5)*.(R1)> 

133 

016612 

0053C2 


DEC 

R2 

134 

016614 

001374 


BNE 

7* 

135 

016616 

012605 

8$: 

MOV 

<SP)*. R5 

136 

016620 

012604 


MOV 

<SP)*. R4 

137 

016622 

012603 


MOV 

(SPM.R3 

138 

016624 

012602 


MOV 

(SP)*,R2 

139 

016626 

012601 


NOV 

(SP)*,R1 

140 

016630 

000207 


RTS 

PC 


E 8 


>EQ 0095 


HI 

K2 

H3 

144 

145 

146 

147 

148 

149 

150 016632 

151 016634 

152 016642 

153 016644 

154 016650 

155 016654 

156 016660 

157 016664 

158 016670 

159 016672 

160 016674 

161 016676 

162 016700 

163 016702 

164 016704 

165 016706 

166 

167 

168 

169 

170 

171 


FILL THE ASSIGNED BUFFER 
CALL: 


BEGINNING OF TABLE 
BLOCK SIZE (IN UORDS) 

CHANGE TO BYTE COUNT 

ADD BLOCK BEGINNING ADDRESS 

R1 STILL POINTS TO INSERTED ENTRY 

LOWER ADJACENT IN TABLE 

INCREMENT POINTER 

DECREMENT ENTRY COUNT 

CONTINUE LOOKING 

RESTORE STACK POINTER 

END 

RESTORE R2 

INCREMENT LOWER BLOCK LENGTH 

DECREMENT ENTRY COUNT 

GET READY TO COMPRESS 

INCREMENT TO NEXT ENTRY 

COMPRESS TABLE 

MOVE SIZE FIELD DOWN 

DECREMENT ENTRY COUNT 

BR IF NOT FINISHED 

RESTORE R5 

RESTORE R4 

RESTORE R3 

RESTORE R2 

RESTORE R1 

RETURN 


(IF WRITE OR WRITE CHECK COMMAND) 


104412 

132760 

001020 

016001 

016002 

116004 

016405 

012703 

012521 

005302 

003403 

005303 

001373 

000766 

104413 

000207 


000004 000024 

000006 

000020 

000030 

002324 

000020 


FIL8UF: 


1 $: 


2 $: 

3$: 


4$: 


MOV 

MOV 

M0V8 

JSR 

RETURN 

SAVREG 

BITS 

BNE 

MOV 

MOV 

HOVB 

MOV 

MOV 

MOV 

DEC 

BLE 

DEC 

BNE 

BR 

RESREG 

RTS 


#DPB.RO ;DPB ADDRESS 

#8UFADR.$eUF(R0) .'LOAD BUFFER ADDRESS INTO THE DP8 

PATTERN. SPATTC(RO) .'PATTERN CODE 

PC.FILBUF 


#4.$C0DE(R0> 

4$ 

SBUF(R0).R1 

$WRDL(R0),R2 

SPATTC(R0),R4 

STNDAT(R4).R5 

R16..R3 

(RSH.CRIH 

R2 

4$ 

R3 

3S 

2 $ 

PC 


SAVE THE REGISTERS 
SEE IF READ COMMAND 
SR IF READ 
BUFFER ADDRESS 
POSITIVE WORD COUNT 
RELATIVE PATTERN ADDRESS 
PATTERN ADDRESS 
PATTERN COUNT 

MOVE THE PATTERN INTO THE BUFFER 
DECREMENT THE WORD COUNT 
BR IF DONE (WORD COUNT = 0) 
DECREMENT THE PATTERN COUNT 
BR IF MORE PATTERN 
CONTINUE DISTRIBUTING THE PATTERN 
RESTORE THE REGISTERS 
RETURN 


START THE COMMAND FOR THE DPB IN RO 
CALL : 

MOV fDPB.RO ;DPB ADDRESS 

JSR PC.GODRIV 

RETURN 
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SEO 0096 


172 

173 016710 

174 016712 

175 016716 

176 016722 

177 016724 

178 016726 

179 016730 

180 Cl 6736 

181 016742 

182 016750 

183 016752 

184 016760 

185 016764 

186 016772 

187 016776 


010046 



GODRIV: 

MOV 

010037 

016722 



MOV 

004037 

041000 


1$: 

JSR 

♦ •EMI 



2$: 

.WORD 





HALT 

012600 




MOV 

062760 

000001 

000046 


ADD 

005560 

000050 



ADC 

026060 

000034 

000012 


CMP 

001412 




BEQ 

062760 

000001 

000042 


ADD 

005560 

000044 



ADC 

062760 

000001 

000052 


ADD 

005560 

000054 



ADC 

000207 



3$: 

RTS 


RO.-(SP) 

R0.2S 

R0.RM80 

0 


(SPI+.RO 

#1,$0PERC(R0) 

$0PERC*2<R0> 

SPREVA+2CR0). 

3$ 

#1, SENDS* (RO) 

$ENDSK+2(R0) 

#1,SP0S1T(R0) 

SPOSIT+2(R0) 

PC 


.-SAVE RO 

.-CURRENT DPS ADDRESS 
.•CALL THE DRIVE HANDLER 
.-DRIVE BLOCK ADDRESS GO'S HERE 
.•DRIVER REJECTED REQUEST 
.•RESTORE RO 

.•INCREMENT THE OPERATION COUNT 

SCYL (RO) .‘DID COMMAND REQUIRE A CYLINDER CHANGE 
BR IF NO 

.’INCREMENT END OF PASS SEE* COUNT 
;ADD ANY CARRY 
.INCREMENT SEEK COUNT 
;ADD ANY CARRY 


7 
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SEQ 0097 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 017000 

15 017004 

16 017010 

17 017012 

18 017016 

19 017020 

20 017024 

21 017030 

22 017032 

23 

24 017034 

25 017042 

26 017050 

27 017056 

28 017064 

29 

30 017072 

31 017100 

32 017102 

33 

34 

35 

36 017106 

37 017112 
SS 017116 

39 017120 

40 017126 

41 017134 

42 017142 

43 017150 

44 017156 

45 017160 

46 017164 

47 017172 

48 017174 

49 

50 017176 

51 017202 

52 017206 

53 017212 

54 017216 

55 017224 

56 017226 

57 0^7232 


004737 

005760 

001011 

005760 

001006 

012704 

004737 

000462 


116060 

016060 

016060 

016060 

016060 

032760 

001402 

005360 


012704 

004737 

000427 

116060 

116060 

016060 

112760 

122760 

001473 

004737 

032777 

001471 

000744 

012704 

013705 

004737 

010560 

042760 

001002 

105260 

016060 


.•ROUTINE TO 

SETUP PARAMETERS FOR 

CALL: 

MOV 

# DP8.R0 


MOV 

#-2.$PACK(R0) 

OR 

MOV 

#-1 .SPACK(RO) 

OR 

MOV 

#1 .SPACK(RO) 


JSR 

PC. WRTPK 


RETURN 


027462 

000050 

000046 

000010 

020130 


002140 

000010 

000012 

002146 

002174 


WRTPK: 


000027 

000032 

000034 

000010 

000012 


001000 002172 
0C0010 


000010 

020130 

000140 

000134 

000130 

000004 

177776 

031370 

000020 


000010 

001462 

020330 

000020 

000377 

000021 

000020 


000010 

000011 

000012 

000024 

000026 


161762 


000020 


000004 


PC.GETLNT 

$0PERC*2(R0) 

IS 

SOPERC(RO) 

IS 

#$SEC,R4 

PC.CKLNTS 

3S 


;DP8 ADORES* 


.•'WRITE PACK' FLAG 
.-'READ PACK' FLAG 
•CALL READ OR WRITE PACK 


GET ADDRESS LlMltS 

IS THIS THE FIRS? OPERATION ? 

BR IF NO ‘ 

IS THIS THE FIRST OPERATION ? 

BR IF NO 

GET INDEX TO SECTOR ADDR STORAGE IN DPB 
GO CHECK DISK ADDRESS LIMITS 
BR IF NOT AT END OF SEQUENTIAL ADDRESSING 
SHOULD NOT 6ET HERE 


SRMCS1 <R0) .SPREVO(RO) 
SSEC(RO) .SPREVA(RO) 
SCYL(RO) .$PREVA*2(R0) 
SRMDA(RO),SSEC(RO> 
SRMDC(RO) .SLYL(RO) 


.‘SAVE CURRENT PARAMETERS 
.‘SAVE PREVIOUS TRACK/SECTOR ADDRESS 
.SAVE PREVIOUS CYLINDER ADDRESS 
.CURRENT SECTOR l TRACK ADDRESS 
; CURRENT CYLINDER ADDRESS 


#SSEI.$RMOF (RO) ;IS SSEI STILL SET ? 


21 

SSEC(RO) 


*8R IF NOT 

‘IF SO. THEN BACKUP ONE SECTOR TU REFLECT THE 
.•PROPER ADDRESS TO BE ACCESSED WHEN READING OR 
.‘URITTIN6 THE NEXT SEQUENTIAL SECTOR. 


#SSEC.R4 .GET INDEX TO SECTOR ADDR ST0RA6E IN DPB 

PC.CKLMTS .‘GO CHECK DISK ADDRESS LIMITS 

3S ;BR IF NOT AT END OF SEQUENTIAL ADDRESSING 

MINSEC(RO) ,SSEC(A0) .‘RESET SECTOR ADDRESS 

MINTRK(RO) .STRK(RO) .‘RESET TRACK ADDRESS 

MINCYL(RO).SCYL(RO> :RESET CYLINDER ADDRESS 

#4.$C0DE(R0) .SET CODE TO READ DATA 
#-2.$PACK(R0> .‘WAS WRITE DATA PACK iN PROGESS ? 

8S ;BR IF YES (START TESTIN6) 

PC.E0P2 .DROP THE DRIVE (NORMAL TERMINATION) 

#SW04.BSWR ;IS SWITCH 4 SET ? 

9S *88 IF NO 

2$ ; RE-CHECK FOR BSF t SSF TRACKS 


#SSEC.R4 

WRDCNT.R5 

PC.CHKWC 

R5.|WRDL(R0) 

#3*7,$WRDL(R0) 

4$ 

SWRDL+1 (RO) 
SWRDL(RO) .SWCNT( 


GET INDEX TO SECTOR STORAGE 

WORD COUNT IS MAXIMUM 

CHECK WORD COUNT FOR MAXCYL /NAXTRK 

GET WORD COUNT 

SECTOR BOUNDRY FOR WRITTING 

NO 

SET TO ONE SECTOR 

5) .-STORE FOR 2'S COMPLEMENT WORu 
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58 

017240 

016060 

000020 

ooon 0 


MOV 

59 

017246 

005460 

000004 



NEG 

60 

017252 

012760 

000400 

000022 


MOV 

51 

62 

017260 

105760 

000026 



TSTB 

63 

017264 

100407 




BM1 

64 

017266 

112760 

000004 

000024 

5S: 

H0V8 

65 

017274 

112760 

000171 

000002 


MOVB 

66 

017302 

000415 




BR 

67 

017304 

005737 

001440 


6$: 

TST 

68 

017310 

001366 




BNE 

69 

017312 

112760 

000002 

000024 


MOVB 

70 

017320 

112760 

000161 

000002 


MOVB 

71 

017326 

004737 

020070 



JSR 

72 

017332 

110560 

000030 



MOVB 

73 

017336 

012760 

177777 

000122 

7$: 

NOV 

74 

7C 

017344 

00020? 




RTS 

(j 

76 

017346 

005037 

001320 


8S: 

CLR 

77 

017352 

105060 

000026 



CLR6 

78 

017356 

005060 

000122 


9$: 

CLR 

79 

017362 

005726 




TST 

80 

017364 

000137 

006240 



JMP 


SUROL (RO) .SHLDWC (RO) ; HOLD WORD FOR 'RELBUF ' ROUTINE 
SWCNT(RO) .-CHANGE WORD COUNT TO 2*S COMPLEMENT 

#256. ,$SSEC (RO) .-SECTOR SIZE FOR READ 

SPACK(RO) .-READ OR WRITE PACK ? 

6$ ;8R IF WRITE 

#4,SC0DE(R0> .-CODE FOR READ DATA 

#r6dAT.SC0MND(R0> ; DRIVE CODE FOR OPERATION 

7$ 

RDONLY 

5$ 

#2.SC0DE(R0) 


« rn a w w v* 

SET UP FOR EXIT 
LOCKED IN READ ONLY MODE ? 

8R IF YES 
.CODE FOR WRTDAT 
#w6iDAT,$COMND(r6> ;0P CODE 
PC.GETPAT .-GET PATTERN CODE 

R5,$PATTC(R0) .-PATTERN CODE 

;SET PARAMETERS SELECTED INDICATOR 
.-RETURN 


rw..rPATTC(RO) 
#-1 .SNEXT (RO) 
PC 


PACK 

SPACK(RO) 
SNEXT (RO) 
(SP)* 

MAIN 


;SET 'TEST* FLAG 
.-SET DPB ’TEST* FLAG 

.-clear Parameter selected* indicator 

; CLEAR STACK LEVEL 

.-JUMP TO MAIN BACKGROUND LOOP 



SEO 0099 
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7 017370 

8 01 7374 

9 017400 

10 017404 

11 017406 

12 017414 

13 017416 

14 017422 

15 017426 

16 017432 

17 017434 

18 017440 

19 

20 017442 

21 017446 

22 017450 

23 017454 

24 017460 

25 017464 

26 017472 

27 

28 017500 

29 017506 

30 017510 

31 

32 

33 017514 

34 

35 017514 

36 017520 

37 017522 

38 017526 

39 017530 

40 017534 

41 

42 017536 

43 017542 

44 017546 

45 017550 

46 017556 

47 017564 

48 017572 

49 017574 


004737 

004737 

005737 

001016 

032777 

001012 

012705 

004737 

020537 

103003 

012705 

000407 

013705 

000305 

042705 

062705 

110560 

016060 

016060 

032760 

001402 

005360 


005737 

001427 

005760 

001003 

005760 

001405 

012704 

004737 

000412 

116060 

116060 

016060 

000761 

000137 


GENERATE PARAMETERS FOR THE OPERATION 
CALL : 

MOV ADPB.RO ;DP8 ADDRESS 

JSR PC.GENPAR 

RETURN 


027462 

037024 

001440 

000001 161540 

000310 

032014 

001476 

000002 


037124 

177776 

000004 

000114 

002146 

002174 


000116 

000120 


GENPAR: JSR 
JSR 
TST 
BNE 
81 T 
BNE 
MOV 
JSR 
CMP 
BH1S 
MOV 
BR 

IS: MOV 

SWAB 
BIC 
ADD 

21: MOVB 

MOV 
MOV 


001000 002172 
000010 


001506 

000050 

000046 


000116 

020130 

000140 
0001 34 
000130 

017746 


000116 

000117 

000120 


THEAD: TST 
BEO 
TST 
BNE 
TST 
BEQ 

IS: MOV 

JSR 
BR 

2 S: MOVB 

MOVB 
MOV 
BR 

3S: JMP 


PC.GETLMT 

PC.SRAND 

RDONLY 

IS 

«SUO,BSUR 

IS 

#8. ,R5 
PC.GETREH 
R5, RATIO 

IS 

#2.R5 

2S 


GET ADDRESS LIMITS 

CYCLE THE RANDOM NUMBER GENERATOR 

LOCKED IN READ ONLY MODE ? 

BR IF YES 

SEE IF SWO SET 

BR IF SET - READ ONLY 

READ/URITE SELECTION DIVISOR 

GET SELECTION VALUE 

DETERMINE IF READ OR WRITE 

BR IF READ 

SELECT WRITE DATA COMMAND 
SELECT ADDRESS 


SL0NUM.R5 ;SE 
R5 ;SW 
#*C1.R5 ;HA 
#4,R$ ;TA 
R5,SNCODE(RO) ;C0 
SRMDA(RO) .SNSEC(RO) 
SRMDC(RO).SNCYL(RO) 


SELECT READ OPERATION CODE 

SWAP BYTES IN R5 

MASK OUT ALL BUT BIT 0 

TABLE OFFSET FOR READ CODE 

COMMAND SELECTION CODE TO CONTROL BLOCK 

lO) .'SECTOR AND TRACK 

10) .'CYLINDER NUMBER 


#SSEI .SRMOF (RO) 
3S 

SSEC(RO) 


RANDOM 

RANCYL 

S0PERC*2(R0) 

IS 

SOPERC (RO) 

2S 

#SN$EC,R4 

PC.CKLMTS 


MINSEC(RO) .SNSEC(RO) 


IS 'SSEI ' STILL SET ? 

BR IF NOT 

IF SO, THEN BACKUP ONE SECTOR TO REFLECT THE 
PROPER ADDRESS TO BE ACCESSED WHEN READING OR 
URITTING THE NEXT SEQUENTIAL SECTOR. 


ENABLE RANDOM ADDRESS SELECT ? 

YES 

IS THIS THE FIRST OPERATION ? 

BR IF NO 

IS THIS THE FIRST OPERATION ? 

BR IF YES 

GET INDEX TO SECTOR A DDR STORAGE IN DPB 

GO CHECK DISK ADDRESS LIMITS 

BR IF NOT AT END OF SEQUENTIAL ADDRESSING 


MINTRK (RO) ,$NTRK(RO) 
MINCYL(RO) ,$NCYL(RO) 
IS ;RE- 
RANSIZ ;G0 


(RO) .’RESET SECTOR ADDRESS 

(RO) .’RESET TRACK ADDRESS 

(RO) .'RESET CYLINDER ADDRESS 

; RE -CHECK FOR BSF I SSF TRACKS 
;G0 CHECK FOR RANDOM WORD SIZE 
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SEQ 0100 


1 

2 

3 

017600 

016005 

000126 

A 

017604 

026005 

000130 

5 

017610 

001407 


6 

017612 

166005 

000130 

7 

017616 

005205 


8 

017620 

004737 

032014 

9 

017624 

066005 

000130 

10 

017630 

010560 

000120 

11 




12 




13 




14 

017634 

016005 

000132 

15 

017640 

026005 

000134 

16 

017644 

001407 


17 

017646 

166005 

000134 

18 

017652 

005205 


19 

017654 

004737 

032014 

20 

017660 

066005 

000134 

21 

017664 

110560 

000117 

22 




23 




24 




25 

017670 

016005 

000136 

26 

017674 

026005 

000140 

27 

017700 

001407 


28 

017702 

166005 

000140 

29 

017706 

005205 


30 

017710 

004737 

032014 

31 

017714 

066005 

000140 

32 

017720 

110560 

000116 

33 




34 




35 




36 

017724 

012704 

000116 

37 

017730 

004737 

020130 

38 

017734 

000404 


39 

017736 

004737 

037024 

40 

017742 

000137 

017600 

41 

017746 



42 




43 




44 




45 

017746 

013705 

001462 

46 

017752 

005737 

001474 

47 

017756 

001011 


48 

017760 

005205 


49 

017762 

004737 

032014 

50 

017766 

020527 

000006 

51 

017772 

002003 


52 

017774 

004737 

037024 

53 

020000 

000762 


54 




55 

020002 

012704 

000116 

56 

020006 

004737 

020330 

57 





J 8 


.‘GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES 'MINCYL’ C 'MAXCVL ' 


RANCYL: MOV 
CMP 
BEQ 
SUB 
INC 
JSR 
ADD 

1$: MOV 


MAXCYL(RO) ,R5 
MJNCYL(R0).R5 

1 $ 

MINCYL <R0).R5 
R5 

PC,GETREM 
MINCYL (R0KR5 
R5.SNC YL(RO) 


; GET MAXIMUM CYLINDER ADDRESS 
; ’MINCYL’ AND 'MAXCYL ' THE SAME ? 

.DB IF TUCV ADC 

’GET NUMBER OF ALLOWABLE CYLINDERS 
.‘INCREMENT DIFFERENCE TO USE AS uIVISOR 
;GET THE RANDOM AUGMENT 
;N £ W CYLINDER ADDRESS 
.‘STORE CYLINDER ADDRESS IN DP8 


.‘GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES ’MINTRK’ t ’MAXTRK' 


RANTRK: MOV MAXTRK(RO) ,R5 

CMP MINTRK(RO) ,R5 

BEO IS 

SUB MINTRK <R0),R5 

INC R5 

JSR PC.GETREM 

ADD MINTRK (R0).R5 

1$: MOVB RS.SNTRK(RO) 


.‘GET MAXIMUM TRACK ADDRESS 
; 'MINTRK* AND ’MAXTRK* THE SAME ? 

.DO If TUCV ADC 

•GET NUMBER OF ALLOWABLE TRACKS 

.‘INCREMENT DIFFERENCE TO USE AS DIVISOR 

.’GET THE RANDOM AUGMENT 

.-NEW TRACK ADDRESS 

.‘STORE TRACK ADDRESS IN DP8 


.‘GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES 'MINSEC' t ’MAXSEC' 


RANSEC: NOV MAXSEC <R0> ,R5 

CMP MINSEC (R0J.R5 

BEO IS 

SUB NINSEC(R0).R5 

INC R5 

JSR PC.6ETREM 

ADD MINSEC <R0).R5 

IS: M0V8 R5.SNSEC(R0) 


.‘GET MAXIMUM SECTOR ADDRESS 
.‘•MINSEC’ AND ’MAXSEC’ THE SAME ? 

‘BR IF THEY ARE 

‘GET NUMBER OF ALLOWABLE SECTORS 

.‘INCREMENT DIFFERENCE TO USE AS DIVISOR 

.•GET THE RANDOM AUGMENT 

;NEW SECTOR ADDRESS 

.‘STORE SECTOR ADDRESS IN DPB 


.‘MAKE SURE ADDRESS JUST GENERATED IS NOT *BSF* OR 'SSF' TRACK 


2S: 


NOV 

JSR 

BR 

JSR 

JMP 


#SNSE C.R4 
PC.CKLMTS 
2S 

PC.SRAND 

RANCYL 


GET INDEX TO SECTOR ADDR STORAGE IN DPB 
GO CHECK DISK ADDRESS LIMITS 
BR IF NOT AT END OF SEQUENTIAL ADDRESSING 
CYCLE THE RANDOM NUMBER GENERATOR 
GO GENERATE NEW ADDRESS 


.‘GENERATE A 

RANDOM BUFFER 

RANSIZ: MOV 

WRDCNT, R5 

TST 

RANDWC 

BNE 

2$ 

INC 

R5 

JSR 

PC.GETREM 

CMP 

R5.06 

BGE 

2* 

IS: JSR 

FC, SR AND 

BR 

RANSIZ 

2$: MOV 

0SNSEC.R4 

JSR 

PC.CHKWC 


LENGTH BETWEEN 6 l THE VALUE IN ’WRDCNT’ 

.-GET MAX WORD COUNT 
.'SELECT A RANDOM WORD COUNT ? 

;BR IF NOT 

.’INCREMENT THE MAXIMUM WRD CNT 
.‘DIVIDE BY MAX VALUE 
.‘WORD COUNT LESS THAN 6 ? 

;BR IF NO 

.'CYCLE THE RANDOM NUMBER GENERATOR 


GET INDEX TO SECTOR STORAGE 

SEE IF WORD COUNT IS TOO LARGE TO FIT 

IN REMAINDER OF TRACK. IF SO. THEN ADJUST 



SFQ 0101 


WORD COUNT TO FIT ON TRACK. 
WRITE OPERATION ? 

8R IF NO 

WRITTING PARTIAL SECTOR ? 
BR IF NO. ELSE. 

WRITE AT LEAST ONE SECTOR 
WORD COUNT 


WRITE OPERATION ? 

BR IF NO 

GET PATTERN CODE 

HOVE PATTERN CODE TO CONTROL BLOCK 
SET PARAMETERS SELECTED INDICATOR 
RETURN 


SELECT PATTERN 

ENABLE RANDOM PATTERN SELECTION ? 
YES 

USE INDEXED PATTERN 
NO 

CYCLE THE RANDOM NUMBER GENERATOR 
GET CODE 

WAS PATTERN ZERO SELECTED ? 

BR IF YES 

MAKE CODE INTO TABLE INDEX 
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L 8 


SEQ 010? 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


THIS ROUTINE IS USED TO CHECK ADDRESS LIMITS BEFORE THE NEXT COMMAND 
IS PERFORMED. THIS WILL PROTECT AGAINST URITTING ON CUSTOMER DATA BY 
CHECKING FOR MINIMUM ADDRESS VALUES. ALSO. IT WILL CHECK FOR MAXIMUM 
ADDRESS LIMITS TO LOOK FOR AN END TO THE SEQUENTIAL ADDRESSING. 

CALL: 


MOV 

MOV 

JSR 

BR 


fDP8.R0 

#P0INTER,R4 

PC.CKLMTS 

??$ 


DPB ADDRESS 

POINTER TO SECTOR STORAGE (SSEC OR SNSEC) IN DP 8 
CALL ADDRESS LIMITS ROUTINE 
RETURN HERE IF NOT END OF SEQUENTIAL ADDRESSING 
ELSE. RETURN HERE TO RESET DISK ADDRESS 


RO = DPS ADDRESS BEFORE CALLING THE ROUTINE 

R4 = POINTER TO SECTOR STORAGE BEFORE CALLING THE ROUTINE 


15 

020130 




CKLMTS: ADD 

R0.R4 

.-POINT TO SECTOR STORAGE POINT IN DPB 

16 

020132 

026460 

000002 

000130 


CMP 

2(R4) .MINCYL(RO) 

;IS CYLINDER ADDRESS BELOW MIN. ? 

17 

020140 

002003 




8 GE 

IS 

;BR IF NO 

18 

020142 

016064 

000130 

000002 


MOV 

MINCYL(RO) ,2(R4) 

.'RESET CYLINDER TO MIN. 

19 

020150 

126460 

000001 

000134 

IS: 

CMP 8 

1 (R4) .MINTRK(RO) 

;TS TRACK ADDRESS BELOW MIN. ? 

20 

020156 

002003 




BGE 

2S 

; 8 R IF NO 

21 

020160 

116064 

000134 

000001 


Move 

MINTRK(RO) ,1 (R4) 

.RESET TRACK TO MIN. 

22 

020166 

121460 

000140 


21 : 

CMP 6 

(R4) .MINSEC(RO) 

;IS SECTOR ADDRESS BELOW MIN. ? 

23 

020172 

002002 




BGE 

3S 

;BR IF NO 

24 

5 c 

020174 

116014 

000140 



MOVB 

MINSEC(RO) , (R4) 

.'RESET SECTOR TO MIN. 

CJ 

26 

57 





.'LOOK 

FOR MAXIMUM LIMITS AND END OF SEQUENTIAL ADDRESSING 

cf 

28 

020200 

121460 

000136 


3S: 

CMP 8 

CR4) .MAXSEC(RO) 

;IS SECTOR ADDRESS AT MAXIMUM ? 

29 

020204 

003404 




BLE 

5S 

;BR IF NO 

30 

020206 

116014 

000140 



MOVB 

MINSEC(R0),(R4) 

.'RESET SECTOR ADDRESS 

31 

020212 

105264 

000001 


AS: 

INC 8 

1 (R4) 

.'INCREMENT TO NEXT TRACK ADDRESS 

32 

020216 

126460 

000001 

000132 

5$: 

CMPB 

1 (R4) .MAXTRK(RO) 

;IS TRACK ADDRESS OVER MAXIMUM ? 

33 

020224 

003407 




BLE 

6 S 

;BR IF NO 

34 

020226 

116014 

000140 



MOVB 

MINSEC(R0),(R4) 

.RESET SECTOR ADDRESS 

35 

020232 

116064 

000134 

000001 


MOVB 

MINTRK(RO) ,1 (R4) 

; RESET TRACK ADDRESS 

36 

020240 

005264 

000002 



INC 

2(R4) 

; INCREMENT TO NEXT CYLINDER ADDRESS 

37 

020244 

026460 

000002 

000126 

6 $: 

CMP 

2(R4) .MAXCVLCRO) 

;IS CYLINDER ADDRESS OVER MAXIMUM ? 

38 

020252 

003403 




BLE 

H 

;BR IF NO 

39 

020254 

062716 

000002 



ADD 

02 ASP) 

;ADJU T RETURN TO RESET DISK ADDRESS PARAMETERS 

40 

020260 

000422 




BR 

9S 


41 








.'CHECK NOT TO READ OR WRITE BAD SECTOR TRACK 

42 

020262 

013746 

001430 


7$: 

MOV 

FEI.-(SP) 

GET FIRST FE CYLINDER (LAST CYL+1) 

43 

020266 

005316 




DEC 

<SP> 

.'LOOK AT LAST USER CYLINDER 

44 

020270 

026426 

000002 



CMP 

2CR4) , (SP)+ 

;ARE WE ON LAST USER CYLINDER ? 

45 

020274 

001004 




BNE 

1$ 

;BR IF NO 

46 

020276 

126437 

000001 

001426 


CMPB 

1 (R4J.TRKLMT 

;IS THIS THE BAD SECTOR TRACK ? 

47 

020304 

001742 




BEO 

AS 

;BR IF YES 

48 








.'CHECK NOT TO READ OR WRITE SKIP SECTOR FILE TRACKS 

49 

020306 

026437 

000002 

001430 

8 $: 

CMP 

2(R4) ,FE1 

;ARE WE ON 1ST FE CYLINDER ? 

50 

020314 

001004 




BNE 

9S 

; 8 R IF NO 

51 

020316 

126427 

000001 

000001 


CMP 8 

1 (R4) ,#1 

;ARE WE ON TRACK 0 OR 1 ? 

52 

020324 

003732 




BLE 

AS 

; 8 R IF YES 

53 

020326 

000207 



9$: 

RTS 

PC 

.•RETURN 
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SEQ 0103 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 020330 

17 020332 

18 020336 

19 020340 

20 020346 

21 020350 

22 020354 

23 020356 

24 020364 

25 

26 

27 

28 020366 

29 020374 

30 020376 

31 020404 

32 

33 020406 

34 020410 

35 020414 

36 020416 

37 020420 

38 020424 

39 020426 

40 020430 

41 020432 

42 020434 

43 020436 

44 020440 

45 

46 020442 

47 020446 

48 020450 

49 020454 

50 020456 

51 020462 

52 020464 

53 020466 

54 020472 

55 020474 

56 020476 


THIS ROUTINE IS USED TO CALCULATE AND CHECK THE WORD COUNT FOR THE 
DRIVE THAT IS TO DO A DATA TRANSFER ON THE MAXIMUM TRACK OF THE MAXIMUM 
CYLINDER. IF THE CALCULATED MAXIMUM WORD COUNT, EXCEEDS THE DESIRED WORD 
COUNT (CONTENTS OF R5). THEN THE DESIRED WORD COUNT IS CHANGED, SO THAT 
THE WORD COUNT WILL NOT CAUSE A TRACK OVERFLOW DURING THE TRANSFER. 

CALL: 

MOV #DPB,RO ;DPB ADDRESS 

MOV #P0INTER.R4 ;POINTER TO SECTOR STORAGE (SSEC OR SNSEC) IN DPR 

JSR PC.CHKWC ; CALL CHECK WORD COUNT ROUTINE 

RETURN ;RE TURN WITH R5 CONTAINING THE DESIRED WORD COUNT 


#DPB,RO 

#P0INTER.R4 

PC.CHKWC 


RO = DPS ADDRESS BEFORE CALLING THE ROUTINE 

R4 s POINTER TO SECTOR STORAGE BEFORE CALLING THE ROUTINE 

R5 * DESIRED WORD COUNT BEFORE CALLING THE ROUTINE 


060004 

105760 000140 
001023 

126037 000136 001424 
001017 

105760 000134 
001010 

126037 000132 001426 
001004 


026064 000126 000002 
001022 

126064 000132 000001 
001016 


CHKWC : 


111404 

016046 

160416 

005004 

062704 

005316 

002374 

005726 

020504 

003420 

010405 

000416 

013746 

005316 

026426 

001010 

013746 

005316 

005046 

116416 

022626 

001744 

000207 


000136 


000400 


001430 

000002 

001426 


000001 


ADD 

TSTB 

BNE 

CMPB 

BNE 

TSTB 

BNE 

CMPB 

BNE 


MOV 

DEC 

CMP 

BNE 

MOV 

DEC 

CLR 

M0V8 

CMP 

BEQ 

RTS 


R0.R4 

NINSEC(RO) 

2 $ 

MAXSEC(RO) 

2S 

MINTRK(RO) 

HAXTRK(RO) 

IS 


MAXCYL(RO) 

4S 

MAXTRK(RO) 

4$ 


; POINT TO SECTOR STORAGE POINT IN DPB 
.•ALLOW SPIRAL RD/WRT ? 

;BR IF NO 

,SECLMT ; ALLOW SPIRAL RD/WRT ? 

*BR IF NO 

‘ALLOW SPIRAL RD/WRT ? 

‘BR IF NO 

.TRKLMt ; ALLOW SPIRAL RD/WRT ? 

;BR IF NO 

,-WHEN SPIRAL RD/WRT IS ALLOWED, THEN CHECK 
;T0 MAKE SURE YOU DO NOT SPIRAL OVER MAXIMUM 
; TRACK ON MAXIMUM CYLINDER 
,2(R4) ;0N MAXIMUM CYLINDER ? 

;8R IF NO 

,1(R4) ;0N MAXIMUM TRACK ? 

;BR IF NO 


(R4).R4 
MAXSEC(RO),-< 
R4. (SP) 

R4 

#256., R4 
(SP) 

3S 

(SP)* 

R5.R4 

5S 

R4.R5 

5$ 

FEI.-(SP) 

(SP) 

|(R4),(SP)* 

TAKLMT.-(SP) 

(SP) 

-(SP) 

1 (R4) , (SP) 
(SP>+. (SP)+ 
2 $ 

PC 


;6ET STARTING SECTOR ADDRESS 
(SP) ;G£T MAXIMUM SECTOR 

;6ET NUMBER SECTORS TO BE XFERD 
‘CLEAR R4 

‘ADD 1 SECTOR OF WORDS TO R4 
.DONE ALL SECTORS YET ? 

;SR If NO 

.RESTORE STACK 

.TOO MANY WORDS FOR TRACK ? 

*BR IF NO 

•YES, CHANGE WORD COUNT 


.GET FIRST FE CYLINDER (LAST CYL+1) 

.•LOOK AT LAST USER CYLINDER 
;ARE WE ON LAST USER CYLINDER ? 

;BR IF NO 

.-GET LAST TRACK 

.‘LOOK AT NEXT TO LAST TRACK 

.•PUSH STACK 

.‘GET CURRENT TRACK 

;IS IT TRACK BEFORE BAD SECTOR TRACK ? 

;BR IF YES (DON’T ALLOW SPIRAL TO BAD SEC TRK) 
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SEQ 0104 


1 

2 

3 

4 

5 

6 

7 

8 020500 

9 020502 

10 020506 

11 020510 

12 020516 

13 020524 

14 020532 

15 020534 

16 020542 

17 020550 

18 020552 

19 020556 

20 020562 

21 020566 

22 

23 020572 

24 020600 

25 020602 

26 020610 

27 020614 

28 020622 

29 020630 

30 020632 

31 020640 

32 020642 

33 020650 

34 

35 020656 

36 020664 

37 020672 

38 020700 

39 020706 

40 020714 

41 020716 

42 020724 

43 020732 

44 020740 

45 020744 

46 020746 


010546 

105760 

001106 

116060 

142760 

132760 

001007 

016060 

016060 

000410 

004737 

012660 

112660 

112660 

032777 

001051 

116060 

116005 

116560 

122760 

001012 

122760 

001431 

112760 

112760 

116060 

016060 

016060 

012760 

132760 

001403 

062760 

016060 

016060 

005460 

012605 

000207 


000114 

000114 

002076 

000151 


000171 

000004 

000115 

000116 

000120 

000400 

000001 

000002 

000020 

000020 

000004 


ROUTINE TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES 
CALL: 


000026 

002140 000027 
177701 000027 

000006 000114 

000012 000034 
000010 000032 

023254 

000034 

000033 

000032 

000100 160354 


MOV 

JSR 

JSR 

RETURN 


LODPAR: MOV 
TST8 


000024 

000002 

000002 


000060 000027 


000002 

000024 

000030 

000010 

000012 

000022 

000024 

000022 

000004 

000110 


BIT 

BNE 

MOVB 

MOVB 

MOVB 

CMP8 

BNE 

CMP8 

BEQ 

MOVB 

MOVB 


ADPB.RO 
PC.GENPAR 
PC. LODPAR 


DPB ADDRESS 

GENERATE THE PARAMETERS 

LOAD THE PARAMETERS JUST GENERATED 


R5,-(SP) .-SAVE 

SPACK(RO) ; 'R* 

4$ *BR I 

$rmcskro).$prev6(ro) 

#*C76,$PREV0(R0) 


SAVE R5 

*R' OR 'W* COMMAND FOR THE DRIVE ? 
BR IF YES 

KRO) .‘SAVE CURRENT PARAMETERS 
.'STRIP GO. AND IE BITS 


«6.$NC0DE(R0> .‘SEE IF NL. V f OPERATION IS READ OR WRITE 
1$ :BR IF EITHER 

$CYL(R0).$PREVA+2(R0) .‘SAVE STARTING CYLINDER 

$SEC(R0) ,$PREVA(RO> .‘SAVE STARTING SECTOR AND TRACK 

2 $ 

PC.READDR :GET THE DECREMENTED SECTOR AND TRACK ADDRESSES 

(SP) + .$PREVA+2(R0) .‘CYLINDER ADDRESS 

(SP)+. SPREVA+KRO) .‘TRACK ADDRESS 

(SP)+.$PREVA(RO> .-SECTOR ADDRESS 


#SW06.BSWR .SWITCH 6 SET ? 

4$ ;BR IF SET 

SNCODE (RO) .(CODE (RO) .‘LOGICAL CODE FOR OPERATION 

SNCODE <R0),R5 .LOAD R5 FOR USE AS TABLE INDEX 
C0MT8L(R5) .SCOMND(RO) .‘COMMAND CODE 

#WCKD,SCOMND<RO) ;IS NEW COMMAND A WRITE CHECK DATA ? 

3$ *BR IF NO 

#60,SPREVO(R0) ‘WAS PREVIOUS COMMAND A WRITE DATA ? 

4$ ‘BR IF YES 

#RDDAT.SC0MND(R05 ; CHANGE WRITE CHECK TO READ DATA COMMAND 

#4,SC0DE(R0) .‘CODE NUMBER CHANGED TO READ DATA 

*NPATC(RO).$PATTC(RO) .‘PATTERN CODE 

SNSEC (RQ) .SSEC (RO) .‘TRACK AND SECTOR ADDRESSES 

SNCYL(R0),SCVL(RO) .-CYLINDER ADLESS 

#256..$SSEC(R0) .‘INITIAL VALUE OF SECTOR SIZE 

fl.JCODE(RO) .HEADER OPERATION ? 

4$ IF NOT 

#2.$SSEC(R0> -ADD HEADER SIZE 

SWRDL (RQ) .SWCNT (RO) .‘GET WOR COUNT AND 

SWRDL (RO) .SHLDWC (RO) .-HOLD WORD COUNT FOR 'RELBUF* ROUTINE 

SWCNT(RO) .-MAKE IT 2'S COMPLEMENT 

(SP) ♦.RS .-RESTORE R5 

PC .-RETURN 


SNSEC(RQ),*SEC(RO) 
SNCYL(RO),SCYL(RO) 
f256..$SSEC(R0) ;i 
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SEQ 0105 




; MOV 

0ADDRS.R1 



JSR 

PC. CMPRES 



; RETURN 


020750 

016111 000002 

CMPRES: MOV 

2(R1MR1> 

020754 

001402 

BEQ 

1$ 

020756 

005721 

TST 

<R1 > ♦ 

020760 

000773 

BR 

CMPRES 

020762 

000207 

1$: RTS 

PC 


1 

2 

3 

4 

5 

6 
7 


12 

13 

14 

15 

16 

17 

18 

19 

20 

21 020764 
020764 

22 020766 

23 020772 

24 020774 

25 021000 

26 021004 

27 021006 

28 021012 

29 021016 

30 021020 

31 021022 

32 021030 

33 021032 

34 021034 

35 021036 

36 021042 

37 021044 

38 021052 

39 021054 

40 021056 

41 021060 

42 021064 

43 021066 

44 021070 

45 021072 

46 021074 

47 021100 

48 021102 

49 021104 

50 021106 

51 021112 

52 021114 

53 021122 

54 021130 
021130 

55 021132 


ROUTINE TO COMPRESS A LIST 


.•COMPRESS LIST STARTING AT THIS ADDRESS 


010146 

012701 

060001 

005037 

005760 

001402 

005237 

004737 

02 1 126 

001023 

122761 

001002 

005726 

000403 

122661 

001013 

122761 

001002 

005726 

000413 

122661 

001003 

000407 

005726 

005726 

062701 

005711 

100407 

000733 

005737 

m 

062766 

012601 

000207 


000146 

001436 

000112 

001436 

023254 


.•COMPRESS THE TABLE IN R1 
;BR WHEN ZERO FOUND 
; INCREMENT R1 

.•CONTINUE COMPRESSING TABLE 
.'RETURN 

routine to determine of error is at a location on the disk defined 

IN THE BAD TRACK/SECTOR TABLE FOR THE DRIVE. 

CALL: 


SPOTCK: 


IS: 


2 $: 


177777 

000003 


000003 


3$: 

177777 

000002 

4$: 

000002 


5$: 

000004 


6$: 

7$: 

8$: 

001504 


9$: 

177777 

000002 

001342 

000002 

10$: 

11$: 


JSR PC. SPOTCK 

RETURN1 

RETURN2 


MOV RI.-(SP) 

MOV fSBDSEC.RI 

ADD R0.R1 

CLR DEC2 

TST SSSENB(RO) 

BEQ 2$ 

INC DEC2 

JSR PC. REA0DR 

CMP (Rl).(SP)* 

BNE 6$ 

CMPB f-1 ,3(R1 ) 

B NE 3S 

TST <SP)* 

BR 4S 

CMPB (SP>*. 3<R1> 

BNE 7$ 

CMPB f-1.2(RD 

BNE 5S 

TST ($P>* 

BR 9S 

CMPB <$P)*,2(R1) 

BNE 8$ 

BR 9$ 

TST (SP)* 

TST (SP)* 

ADD #4.R1 

TST (R1> 

BMI 10$ 

BR 1$ 

TST MESSAGE 

BNE 11$ 

MOV #-1.BADSEC 

ADD #2.2(SP> 

MOV (SPH. R1 

RTS PC 


.-ERROR AT AN ADDRESS IN TABLE 

;N0 TABLE ENTRY FOR ERROR ADDRESS OR 

.•PARAMETER 'MESSAGE* IS 0 


.PUSH R1 ON STACK 

INCREMENT FOR BAD SECTOR TABLE 

ADD THE BLOCK'S STARTING ADDRESS 

ASSUME DECREMENT SECTOR ONCE 

DID ERROR OCCUR DURING SKIP SECTORING ? 

m IF NO 

DECREMENT SECTOR TWICE 
DECREMENT THE SECTOR/TRACK ADDRESS 
ON THE SAME CYLINDER ? 

BRANCH IF NOT 
ALL BAD TRACKS ? 

M If MD 

ADJUST STACK AND 
GO CHECK SECTORS 
COMPARE THE TRACK ADDRESS 
BR IF IT IS NOT EQUAL 
ALL BAD SECTORS ? 

BR IF NO 
ADJUST STACK AND 
CHECK 'MESSAGE' 

COMPARE THE SECTOR ADDRESS 
BR IF NOT EQUAL 
CHECK 'MESSAGE' 

CLEAR OFF THE STACK 

INCREMENT THE STACK POINTER 

GO TO THE NEXT LOCATION IN THE TABLE 

EMPTY ENTRY OR TERMINATOR ? 

m IF YES 

TRY NEXT SECTOR 

PRINT THE ERROR ANYWAY ? 

BR IF NOT 

SET THE INDICATOR FOR THE IDENTIFICATION LINE 
INCREMENT THE RETURN 


:°0P STACK INTO R1 

Return 
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SEQ 0106 


*.§BTTL ERROR MESSAGE GENERATION ROUTINES 


.PRINT LINE 1 OF ERROR MESSAGE: 
•’HH.'MM.'SS* 


021134 

03 2777 

002000 

160012 

IINE1: 

BIT 

fSWlO.RSWR 

SWITCH 10 SET ? 

021 142 

001402 




BEQ 

IS 

BR IF NOT 

021144 

104401 

001176 



TYPE 

.SBELL 

RING THE BELL 

021150 

032777 

020000 

157776 

IS: 

BIT 

*swi3.aswR 

INHIBIT TYPE OUT ? 

021156 

001405 




BEQ 

2S 

BR IF NOT 

021160 

104414 

001203 



DISPLV 

.SCRLF 

CR-LF 

021164 

104414 

001203 



DISPLY 

.SCRLF 

CR-LF 

021170 

000410 




BR 

it 

EXIT 

021172 

104414 

001203 


2$: 

DISPLY 

.SCRLF 

CR-LF 

021176 

104414 

001203 



DISPLY 

.SCRLF 

CR-LF 

021202 

004737 

024764 



JSR 

PC. STINE 

TYPE THE TIME 

021206 

104414 

075234 



DISPLY 

.8LNKS1 

TYPE 1 BLANK 

021212 

000207 



3$: 

RTS 

PC 

RETURN t TYPE DESCRIPTION 


021214 




LINE2: 



021214 

010346 




MOV 

R3. -(SP) 

021216 

010446 




MOV 

R4,-(SP) 

021220 

010546 




MOV 

R5.-CSP) 

021222 

104414 

001205 



DISPLV 

.SCRLF 

021226 

005037 

021354 



CLR 

it 

021232 

005004 




CLP 

R4 

021234 

012737 

073272 

021354 


MOV 

#LIN2C,4S 

021242 

116004 

002140 



M0V8 

SRMCS1 (R0J.R4 

021246 

042704 

177701 



BIC 

#*C76,R4 

021252 

004737 

021310 



JSR 

PC. IS 

021256 

005737 

021360 



TST 

5S 

021262 

001440 




BEQ 

LINE2A 

021264 

012737 

073312 

021354 


MOV 

#UN2P, 4S 

021272 

116004 

000027 



M0V8 

SPREV0CR0J.R4 

021276 

042704 

177701 



BIC 

(TC76.R4 

021302 

004737 

021310 



JSR 

PC. IS 

021306 

000426 




BR 

LINE2A 

021310 

005005 



IS: 

CLR 

R5 

021312 

126504 

002104 


2S: 

CMP8 

OPTBL(RS) ,R4 

021316 

001405 




BEQ 

3S 

021320 

105765 

002104 



TSTB 

QPT8L(R5> 

021324 

100402 




BMI 

3S 

021326 

005205 




INC 

R5 

021330 

000770 




BR 

2S 


PRINT LINE 2 OF ERROR MESSAGE 

•PRSNT COMMAND = XXXX PREV COMMAND = XXXX* 

•* ERROR AT BAD TRACK/SECTOR 1 

'DRV RMCS1 RMCS2 RM0S1 RMER1 RMMR2 RMER2 RMEC1 RMEC2' 
’<MWC RMBA RMDA RMAS RMLA RMD8 RMMR1 RMD1 ' 

'KMSN RMOF RMDC RMCC STAtUS* 

'RMSAE RMC53’ (RH70 ONLY) 

'BUS ADDRESS OR WORD COUNT NOT CONSISTENT* 

'RMBA £ XXXXXX RMWC * XXXXXX' 

'BUFFER ADR = XXXXXX URD CNT = XXXX ACTUAL NMBR URDS XFRD = XXX* 


.PUSH R3 ON STACK 
.PUSH R4 ON STACK 
;PUSH R5 ON STACK 
CR-LF 

CLEAR MESSAGE ADDRESS STORAGE 
WORKING REGISTER 

ADDRESS OF 'PRSNT COMMAND = ' MSG 

GET THE OPCODE 

SAVE ONLY SIGNIFICANT BITS 

TYPE THE FIRST MNEMONIC 

SEE IF MNEMONIC ENTRY FOUND 

8 R IF NOT 

ADDRESS OF 'PREVS COMMAND - ' MSG 
PREVIOUS OPERATION CODE 
SAVE ONLY SIGNIFICANT BITS 
TYPE THE PREVIOUS MNEMONIC 
CONTINUE 

CLEAR THE TABLE INDEX 

LOOK FOR THE OPCODE 

BR WHEN OPCODE COUNT EQUALS OPCODE 

LOOK FOR END OF TABLE 

BR IF END 

INCREMENT THE POINTER 
CONTINUE - NOT END OF TABLE 
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SEQ 0107 


57 021332 

58 021 334 

59 021336 

60 021340 

61 021346 

62 021352 

63 021354 

64 021356 

65 021360 

66 021362 

67 

68 021364 

69 021370 

70 021372 

71 021376 

72 021402 

73 021406 
>4 021412 

75 021416 

76 021422 

77 021426 

78 021432 

79 021436 

80 021442 

81 021450 

82 021452 

83 021456 

84 021462 

85 021466 

86 021472 

87 021476 

89 021502 

90 021506 

91 021512 

92 021516 

93 021520 

94 021524 

95 021530 

97 021534 

98 021542 

99 021544 

100 021550 

101 021554 

102 021556 

103 021562 

104 021566 

105 021570 

106 021574 

107 021600 

108 021604 

109 021610 
021610 
021612 
021614 

110 021616 
111 021620 
112 021622 


006305 

006305 

006305 

012737 

060537 

104414 

000000 

104414 

000000 

000207 

005737 

001404 

104414 

104414 

104414 

104414 

104414 

013746 

004737 

104414 

012705 

004737 

032777 

001031 

104414 

012705 

004737 

104414 

012705 

004737 

013746 

042716 

022726 

001006 

104414 

012705 

004737 

032760 

001422 

016046 

066016 

006316 

066016 

022660 

001410 

104414 

104414 

004737 

004737 

012605 

012604 

012603 

000207 

012546 

060016 


002124 021360 
021360 


001342 

001203 

07333j 

001203 

072644 

075234 

001324 

023234 

075233 

073204 

021620 

000040 157504 

072746 

073226 

021620 

073044 

073250 

021620 

001234 

003777 

030000 


073114 

073264 

021620 

000100 000C16 1$: 

000020 

0021*2 

000006 

002144 

072150 

001203 

021712 

022324 


3$: 

ASL 

R5 


ASL 

R5 


ASL 

R5 


MOV 

#HNT8L,! 


ADD 

DISPLV 

R5,5$ 

4$: 

.WORD 

DISPLV 

0 

5S: 

.WORD 

0 


RTS 

PC 

LINE2A: 

TST 

BADSEC 


BEO 

LINE 28 


DISPLV 

,SCRLF 


DISPLV 

.L1N2S 

LINE 26: 

DISPLV 

,SCRLF 


DISPLV 

,DH14 


DISPLV 

•8LNKS1 


NOV 

DRVNO,- 


JSR PC.LINDEC 
DISPLV .8LNKS2 
NOV #DT14,R5 
JSR PC, 3$ 

BIT #SW05,BSUR 
BNE IS 
DISPLV ,DH15 
NOV #DT15,R5 
JSR PC.3S 
DISPLV ,DH16 
NOV #DT16,R5 
JSR PC, 3$ 

NOV SCPUOP.-CSP) 

BIC #*C1 74000. <SP> 

CNP #30000, <s£>* 

BNE IS 
DISPLV ,DH17 „ 

NOV #DT17,R5 
JSR PC.3S 
BIT #8iT6, STATUS (RO) 

BEO 2$ 

NOV «RDL(AO>,-(SP) 

ADD $RMWC(RO),(SP) 

ASL (SP) 

ADD SeUE(RO),(SP> 

CNP (SP)*.$RMBA(RO> 

BEO 2$ 

DISPLV ,EN4f 
DISPLV ,$CRLF , 

JSR PC, LINE 3D 
JSR PC,LINE4 

NOV <SP)*,R5 
NOV (SP) *,R4 
NOV (SPH. R3 
RTS PC 
NOV (R5)*,-(SP) 

ADD RO. (SP) 


SHIFT INDEX 

SHIFT THE INDEX 

SHIFT THE INDEX 

ADDRESS OF ASCII TEXT TABLE 

ADD THE INDEX 

TVPE IT 

ADDRESS OF 'PRESENT* OR 'PREVIOUS* MESSAGE 
TVPE THE OPERATION NWENONIC 
ADDRESS OF MESSAGE 
RETURN TO MAIN ROUTINE 

PRINT THE BAD SECTOR LINE ? 

BR IF NOT 
CR-LF 

ERROR ADDRESS DEFINED AS BAD AREA 
CR-LF 

STANDARD RM REGISTER HEADER 
TYPE 1 BLANK 

PUT THE DRIVE NUMBER ON THE STACK 

TVPE DRIVE NUMBER 

TVPE 2 BLANKS 

REGISTER INDEXES 

PRINT THE REGISTERS 

PRINT THE OPTIONAL REGISTERS ? 

BR IF NOT 

SECOND DATA LINE 
PRINT THEN 

THIRD DATA LINE 
PRINT THE REGISTERS 
CHECK THE CPU (RH) TVPE 
LEAVE THE CPU 81 TS 
SEE IF RH70 
BR IF NO 

OPTIONAL FOURTH DATA LINE 
PRINT THE REGISTERS 
;DATA ERROR ? 

BR IF NOT 
TRANSFER URD CNT 
ADD REMAINING WORD COUNT 
CONVERT TO AN BYTE INCREMENT 
BUFFER STARTING ADDRESS 
CORRECT BUFFER ADDRESS ? 

SR IF YES 

'BUS ADDRESS AND WORD COUNT ARE NOT CONSISTENT* 
CR-LF 

PRINT LINE 3D OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 

.POP STACK INTO R5 
;POP STACK INTO R4 
;POP STACK INTO R3 

Return to error processing routine 

PUT THE REGISTER INDEX ON THE STACK 
ADD DRIVE'S TABLE ADDRESS 
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SEQ 0108 


113 021624 

017646 

000000 

MOV 

8(SP),-(SP) 

VALUE 

114 021630 

004737 

023202 

JSR 

PC.LINOCT 
(S P) + 

TYPE IT 

115 021634 

005726 

TST 

CORRECT THE STACK POINTER 

116 021636 

104414 

075233 

DISPLY 

.BLNKS2 

TYPE 2 BLANKS 

117 021642 

005715 


TST 

(R5) 

AT END OF LINE ? 

118 021644 

001365 


BNE 

3$ 

BR IF NOT 

119 021646 

104414 

001203 

4$: DISPLY 

.SCRLF 

PC 

CR-LF 

120 021652 

000207 


RTS 

RETURN 


121 

122 

123 

124 

125 021654 

126 021660 

127 

128 

129 

130 

131 021662 

132 021666 

133 

134 

135 

136 

137 021670 

138 021674 

139 021700 

140 

141 

142 

143 

144 021702 

145 021706 

146 

147 

148 

149 

150 021712 

151 021720 

152 021722 

153 021726 

154 021732 

155 021736 

156 021742 

157 021746 

158 021752 

159 021756 

160 
161 
162 

163 

164 02*760 

165 021764 

166 021770 

167 021774 

168 022000 
169 022004 


104414 073367 
000517 


104414 073405 
000514 


004737 022226 
104414 001203 
000207 


004737 022226 
000137 022260 


032777 

001416 

104414 

016046 

004737 

104414 

016046 

004737 

104414 

000207 


000040 

073544 

002144 

023202 

073553 

002142 

023202 

001203 


104414 073445 
016046 000012 
004737 023234 
104414 075233 
104414 073564 
005046 


.•PRINT LINE 3 OF ERROR MESSAGE 

.-•ERROR AT CCC TT SS PREV ADR = CCC TT SS' 


LINE3: DISPLY .LINM3 
BR UN3.1 


.-LINE 3 ENTRANCE 
.•FINISH PRINTOUT 


.’PRINT LINE 3A OF ERROR MESSAGE 
.-'START CYL * CCC END CYL = CCC* 


LINE3A: DiSPLY .LINN3 
BR LIN3.1 


.•LINE 3A ENTRANCE 
.•FINISH ERROR LINE 


PRINT LINE 36 OF ERROR MESSAGE 
.'START CYL * CCC END CYL * CCC 


ACTUAL CYL = CCC* 


LINE 36: JSR 

DISPLY 

RTS 


PC. LINS. 3 

.SCRLF 

PC 


.•LINE 36 ENTRANCE 


.PRINT LINE 3C OF ERROR MESSA6E 
.-•START CYL * CCC END CYL * CCC 


ACTUAL CYL = CCC TRK = TT* 


LINE3C: JSR 
JMP 


PC.LIN3.3 

LIN3.4 


.-LINE 3C ENTRANCE 
: FINISH MESSAGE 


; PRINT LINE 3D OF ERROR MESSAGE 
;'RMBA a XXXXXX RMWC = XXXXXX' 


157234 LINE3D: BIT 
BED 


BIT fSWOS.BSWR 

SEO IS 

DISPLY .LINB3 

MOV SRMBA<RO).-<SP> 

JSR PC.LINOCT 

DISPLY .LINW3 

MOV SRMWC(RO),-<SP) 

JSR PC.LINOCT 

DISPLY .SCRLF 

RTS PC 


SWITCH 5 SET ? 

BR IF IT IS 
t RMBA a 1 

BUFFER ADDR RE6 CONTENTS 
CONVERT TO OCTAL AND TYPE IT 
7 RMWC * ' 

WORD COUNT REGISTER CONTENTS 
CONVERT TO OCTAL AND TYPE IT 


.PRINT LINE 3E OF ERROR MESSAGE 
; 'START CYL a CCC START TRK = TT 


START SEC * SS* 


LINE3E: DISPLY .LINS3 

MOV SCYL(RO) ,-(SP) 
JSR PC.LINDEC 

DISPLY .8LNKS2 
DISPLY .LINST3 
CLR -<SP> 


•START CYL = ' 

MOVE CYL TO STACK 
TYPE IT IN DECIMAL 
TYPE 2 BLANKS 
'START TRK = ’ 
CLEAR STACK 


F 9 


CZRNAAO RM80 PERF EXER MACRO V04 00 14-JAN-82 15:16:58 PAGE 22-3 
ERROR MESSAGE GENERATION ROUTINES 


170 022006 

171 022012 

172 022016 

173 022022 

174 022026 

175 022030 

176 022034 

177 022C40 

178 022044 

179 

180 
181 
182 


191 


194 

195 

196 
200 
201 


211 


221 

222 

223 

224 


116016 

00001 1 

MOVB 

004737 

023234 

JSR 

104414 

075233 

DISPLY 

104414 

073600 

DISPLY 

005046 


CLR 

116016 

000010 

MOVB 

004737 

023234 

JSR 

104414 

001203 

DISPLY 

000207 


RTS 


STRK(RO) , (SP) 

PC.LINDEC 

.BLNKS2 

.LINSS3 

-<SP) 

iSEC(ROMSP) 

PC.LINDEC 

,$CRLF 

fa 


.-PRINT LINE 3E OF ERROR MESSAGE 
; * RMDA = XXXXXX RMCA = XXXXXX’ 


IT IN DECIMAL 
2 BLANKS 


TRACK TO STACK 
TYPE 
TYPE 

•START SEC 
CLEAR STACK 
SECTOR ADDR TO S1ACK 
TYPE IT IN DECIMAL 


231 

232 


022046 

032777 

000040 157100 

LINE3F: BIT 

#SW5.aSWR 

022054 

001420 


BEQ 

1 $ 

022056 

104414 

073535 

DISPLY 

.LIND A3 

§RMDA(R0) ,-(5P) 

022062 

016046 

002146 

MOV 

022066 

004737 

023202 

JSR 

PC.LINOCT 

022072 

104414 

075233 

DISPLY 

.BLNKS2 

022076 

104414 

073524 

DISPLY 

•LINCA3 

SRMDC (RO) ,-(SP) 

022102 

016046 

002174 

MOV 

022106 

004737 

023202 

JSR 

PC.LINOCT 

022112 

104414 

001203 

DISPLY 

,$CRLF 

022116 

000207 


1$: RTS PC 

; • C CC TT SS PREV ADR = CCC TT 

022120 

004737 

023254 

LIN3.1: JSR 

PC.READDR 

022124 

004737 

023234 

JSR 

PC.LINDEC 

022130 

104414 

073402 

DISPLY 

.T 

022134 

004737 

023234 

JSR 

PC.LINDEC 

022140 

104414 

073423 

DISPLY 

,s 

022144 

004737 

023234 

JSR 

PC.LINDEC 

022150 

104414 

073426 

DISPLY 

L J 14 P 3 

$PREVA+2(R0),~< 

022154 

016046 

000034 

MOV 

022160 

004737 

023234 

JSR 

PC.LINDEC 

022164 

104414 

073402 

DISPLY 


022170 

005046 


CLR 

-(SP> 

fPREYA*l(RO).(S 

022172 

116016 

000033 

MOVB 

022176 

004737 

023234 

JSR 

PC.LINDEC 

022202 

104414 

073423 

DISPLY 

' S . 

022206 

005046 


CLR 

•ISP) 

022210 

116016 

000032 

MOVB 

SPREVA(RO).(SP) 

022214 

004737 

023234 

JSR 

PC.LINDEC 

,$dALF 

PC 

CCC END CYL = C 

022220 

104414 

001203 

DISPLY 

022224 

000207 


RTS 

.-•START CYL = I 

022226 

104414 

073445 

LIN3.3: DISPLY 

.LINS3 

§PR£VA*2(R0>.-( 

022232 

016046 

000034 

MOV 

022236 

004737 

023234 

JSR 

PC.LINDEC 

022242 

104414 

073461 

DISPLY 

.LINEN3 

SRMDC(RO),-(SP) 

022246 

016046 

002174 

MOV 

022252 

004737 

023234 

JSR 

PC.LINDEC 

022256 

000207 


RTS 

PC 


SWITCH 5 SET ? 

BR IF NOT 
•RMDA ’ 

PUT SECTOR/TRACK ADDRESS ON THE STACK 
TYPE IT 
TYPE 2 BLANKS 
' RMDC = ’ 

PUT DESIRED CYLINDER ADDRESS ON THE STACK 
TYPE IT 


DECREMENT TRACK AND SECTOR ADDRESS 
TYPE IT IN DECIMAL 
PRINT * T* 

TYPE TRACK IN DECIMAL 

PRINT 1 S' 

TYPE SECTOR ADDRESS 
PRINT *PREV ADDR* 

P) .PREVIOUS CYLINDER 

.TYPE IT IN DECIMAL 
•PRINT * T' 

•MAKE ROOM ON THE STACK 
5 .PREVIOUS TRACK ADORE SS 

.TYPE IT IN DECIMAL 
.PRINT ’ S* 

.MAKE ROOM ON THE STACK 
; PREVIOUS SECTOR ODRESS 
.-TYPE IT IN DECIMAL 


:LINE *38 I 3C’ ENTRANCE 
if>) .PREVIOUS CYLINDER 
.•TYPE IT IN DECIMAL 
.PRINT 'END CYL* 

.•PRESENT CYLINDER 
;TYPE IT IN DECIMAL 
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SEQ 0110 


233 

234 


241 


245 

246 

247 

248 


251 


261 


264 

265 

266 
267 


271 


291 


.-’ACTUAL CVL = CCC TRK = TT* 


022260 

104414 

073475 

LIN3.4: DISPLY 

022264 

013746 

101174 

MOV 

022270 

042716 

010000 

BIC 

022^74 

004737 

023234 

JSR 

022300 

104414 

073514 

DISPLY 

022304 

005046 


CLR 

022306 

116016 

002147 

movb 

022312 

004737 

023234 

JSR 

022316 

104414 

001203 

DISPLY 

022322 

000207 


RTS 


.LINA3 

CYLNDR.-(SP) 
#8IT12.(SP) 
PC.LINDEC 
.LINT3 
-(SP) 

SRMDA+1 (RO) , (SP) 
PC.LINDEC 
.SCRLF 
PC 


PRINT 'ACTUAL 1 
ACTUAL CYLINDER 
CLEAR THE FORMAT BIT 
TYPE IT IN DECIMAL 
PRINT TRACK 
CLEAR STACK WORD 

;PUT TRaCK ON STACK 
.-TYPE IT IN DECIMAL 


.-PRINT LINE 4 OF ERROR MESSAGE 
; 'BUFFER ADR = XXXXXX WRD CNT * XXXX 


ACTUAL NMBR WRDS XFRD = XXX' 


022324 

032760 

000100 000016 

LINE4: 

BIT 

022332 

001427 



BEO 

022334 

104414 

073614 


DISPLY 

022340 

016046 



MOV 

022344 

004737 

023202 


JSR 

022350 

104414 

073632 


DISPLY 

022354 

016046 

000020 


MOV 

022360 

004737 

023234 


JSR 

022364 

104414 

073646 


DISPLY 

022370 

016046 

002144 


MOV 

022374 

166016 



SUB 

022400 

006216 



ASR 

022402 

004737 

023234 


JSR 

022406 

104414 

001203 


DISPLY 

022412 

000207 


IS: 

RTS 


#81 T06. STATUS (RO) 

IS 

I IUM4 

«BUf(RO).-(SP) 

PC.LINOCT 
-LINS4 

SWRDL(RO),-(SP) 
PC.LINDEC 
.LJNX4 

SRMBA(RO) ,-(SP) 
S8UF(R0).(SP) 

(SP) 

PC.LINDEC 
.SCRLF 

k 


.-DATA ERROR ? 

BR IF NOT 
•PRINT BUFFER' 

BUFFER ADDR ON STACK 
CONVERT TO OCTAL t PRINT 
PRINT 'URD CNT' 

WORD LEN6TH SIZE (WORD COUNT) 
TYPE IT IN DECIMAL 
'ACTUAL NMBR URDS XFRD = ' 
VALUE IN BUFFER ADDR REGISTER 
SUBTRACT STAR.ING ADDRESS 
CONVERT INTO A WORD COUNT 
TYPE IT IN DECIMAL 
CR-LF 
RETURN 


.-PRINT LINE 5 OF ERROR MESSAGE 
; 'EXPCTD DATA * XXXXXX RcCEVD DATA * XXXXXX 


WORD PCS = XXX' 


022414 

104414 

073700 


LINES: 

DISPLY 

022420 

162760 

000002 

002144 


SUB 

022426 

013746 

001234 



MOV 

022432 

042716 

003777 



BIC 

022436 

022726 

030000 



CMP 

022442 

001012 




BNE 

022444 

162760 

000004 

002144 


SUB 

022452 

032760 

004000 

002212 


BIT 

022460 

001403 




BEQ 

022462 

162760 

000002 

002144 


SUB 

022470 

017046 

002144 


IS: 

MOV 

022474 

004737 

023202 



JSR 

022500 

104414 

073716 



DISPLY 

022504 

016046 

002162 



MTV 

022510 

004737 

0232C2 



JSR 

022514 

016046 

002142 



'/iOV 

022520 

066016 

000020 



ADD 

022524 

005046 




CLR 

022526 

016046 

000022 



MOV 

022532 

004737 

032040 



JSR 

022536 

012616 




MOV 

022540 

104414 

073736 



DISPLY 


#$rn 


Nt .SRMBA(RO) 
SCPUOP.-(SP) 

#*cm6oo.(Sp) 

#30000, (s£>+ 

IS 

#4,SRMBA(R0) . 
#8iT11.SRMCS3(R0) 

#2,SRMBA(R0) 
DSRMBAvRO) ,-(SP) 
PC.LINOCT 

MHDB(RO>,-(SP) 
PC.LINOCT 
SRMWC(RO),-(SP) 
SURDL(RO). (SP) 
-(SP) 

SSSEC(RO),-(SP) 
PC.SDIV 
(SP)*.(SP) 

.LINP5 


PRINT ’EXPCTD DATA' 

BACK THE ADDRESS UP 
CHECK THE CPU (RH) TYPE 
LEAVE THE CPU BITS 
SEE IF RH70 
BA IF MO 

BACKUP THE BUFFER POINTER 

;SEE WHICH WORD HALF DIDN'T COMPARE 
IF EQ. EVEN HALF DIDN'T COMPARE 
BACKUP THE BUFFER POINTER AGAIN 

;'EXPCTD' DATA - AT THE BUFFER LOCATION 

TYPE IT 

PRINT 'RECEVD DATA' 

RECEVD DATA FROM BUFFER 
TYPE IT 

WORD LENGTH ON STACK 

MAKE INTO A POSITIVE NlfBER 

UPPER DIVIDEND TO ZERO 

SECTOR SIZE ON THE STACK 

DIVIDE WORDS XFERED BY SECTOR SIZE 

MOVE REMAINDER UP THE STACK 

PRINT 7 WORD POS' 
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SEQ 0111 


294 022544 

004737 

295 022550 

104414 

296 022554 

000207 

297 


298 


299 


300 


301 022556 


302 022556 

104414 

307 022562 

013746 


022566 

022572 

022576 

022602 

022606 

308 022612 

309 022616 

310 022622 

311 

312 

313 

314 

315 022624 

316 022630 

317 022634 

318 022640 

319 022644 

320 022650 

321 022654 

3 22 022660 

323 022664 

324 

325 

326 

327 

328 022666 

329 022672 

330 022676 

331 

339 

340 

341 

342 

343 022700 

344 022704 

354 

355 

356 

357 022706 

358 022712 

359 

360 

361 

362 

363 022714 

364 022720 

365 


004737 

104414 

013746 

004737 

104414 

104414 

104414 

000207 


073753 

101174 

023202 

075233 

101176 

023202 

075233 

075236 

001203 


104414 074030 
104414 001203 
000207 


104414 074063 
000406 


104414 074112 
000403 


104414 074142 
000400 


JSR 

DISPLY 

RTS 


PC.LINDEC 

.SCRLF 

PC 


; T YPE THE POSITION 


.•PRINT LINE 5A OF THE ERROR MESSAGE 

.•'HEADER FROM ERROR SECTOR XXXXXX XXXXXX XXXXXX XXXXXX' 


UNE5A: 

2 $: 


3$: 


DISPLY AJNS5 
MOV CYLNDR.-(SP) 

JSR PC.LJNOCT 

DISPLY .8LNKS2 
MOV CYLNDR*2,-(SP) 

JSR PC.LINOCT 

DISPLY .BLNKS2 
DISPLY .LINX5 
DISPLY .SCRLF 
RTS PC 


'HEADER CONTENTS OF ERROR SECTOR' 

HEADER POSITION 

TYPE IT 

T YPE 2 BLANKS 

HEADER POSITION *2 

TYPE IT 

TYPE 2 BLANKS 

APPENDING INFO 1/23/77 


.•PRINT LINE 5B OF ERROR MESSAGE 
; 'RMEC1 = XXXXXX RMEC2 * XXXXXX' 


104414 

074006 

LINE5B: DISPLY 

016046 

002204 

NOV 

004737 

023202 

JSR 

104414 

075233 

DISPLY 

104414 

074016 

DISPLY 

016046 

002206 

MOV 

004737 

023202 

JSR 

104414 

001203 

DISPLY 

000207 


RTS 


LINEP5 *'RM£C1 * ' 

iRMECKRO).-(SP)' ;PUT REGISTER CONTENTS ON THE STACK 

PC.LINOCT .-TYPE IT 

.BLNKS2 .-TYPE 2 BLANKS 

.LINE05 ;' RMEC2 = ' 

|RMEC2(R0).-(SP) ;PUT REGISTER CONTENTS ON THE STACK 

PC.LINOCT .-TYPE IT 

.fCRLF 

PC .-RETURN 


.•PRINT LINE 6 OF ERROR MESSAGE 
.•'SECTOR IS ECC CORRECTABLE’ 


LINE6: 


DISPLY 

DISPLY 

RTS 


.LINB6 

,*CRLF 

PC 


;ECC CORRECTABLE 


.-PRINT LINE 6A OF THE ERROR MESSAGE 
; 'SECTOR READ CORRECTLY* 

LINE6A: DISPLY .LINC6 .-PRINT 'SECTOR READ CORRECTLY ON N RETRIES' 

BR LIN6.2 .-TYPE THE REST OF THE LINE 

.-PRINT LINE 6C OF THE ERKOR MESSAGE 
.-'CORRECTED ON NTH RETRY' 


LINE6C: DISPLY .LING6 
BR LIN6.2 


; 'CORRECTED ON N RETRIES' 
.-TYPE THE REST OF THE LINE 


.•PRINT LINE 6D OF THE ERROR MESSAGE 
.•'UNCORRECTABLE AFTER N RETRIES’ 


LINE6D: DISPLY .LINU06 
bR LIN6.2 


.-'UNCORRECTABLE AFTER N RETRIES' 
.-FINISH 
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SEQ 0112 


377 

378 


381 


385 


; RE TRY COUNT TY°EOUT 


022722 

005046 


LIN6.2: CLR 

-(SP) 

.•CLEAR STACK 

022724 

113716 

001331 

MOVB 

RETRY+1,(SP) 

.•RETRY COUNT 

022730 

004737 

023234 

JSR 

PC.LINDEC 

.-TYPE IT IN DECIMAL 

022734 

104414 

074130 

DISPLY 

.LINR6 

.-'RETRY' 

022740 

104414 

001203 

DISPLY 

.SCRLF 


022744 

000207 


RTS 

PC 



386 



.PRINT 

LINE 7 l 

387 



; ' TOTAL 

ERRORS 

388 





396 022746 

104414 

074254 

LINE7: 

DISPLY 

397 022752 

016046 

000072 


MOV 

398 022756 

004737 

023234 


JSR 

399 022762 

104414 

074272 


DISPLY 

4CD 022766 

016046 

000056 


MOV 

401 022772 

004737 

023234 


JSR 

402 022776 

104414 

074302 


DISPLY 

403 023002 

012746 

000060 


MOV 

404 023006 

060016 



ADD 

405 023010 

004737 

037222 


JSR 

406 023014 

004737 

032364 


JSR 

407 023020 

104414 

074317 


DISPLY 

408 023024 

016046 

000064 


NOV 

409 023030 

004737 

023234 


JSR 

410 023034 

104414 

074327 


DISPLY 

411 023040 

012746 

000066 


MOV 

412 023044 

060016 



ADD 

413 023046 

004737 

037222 


JSR 

414 023052 

004737 

032364 


JSR 

415 023056 

104414 

001203 


DISPLY 

416 023062 

032777 

100000 156064 


BIT 

417 025070 

001401 



BEQ 

418 023072 

000000 



HALT 

419 023074 

000207 


IS: 

RTS 


OF THE ERROR MESSAGE 

X WOF L : X URDS WRI TN.'XXXXXXX 


ROFL :0 URDS READ.'XXXXXXX 1 


420 

421 

422 

423 
431 


.LIN7T 

STOTAL(RO),-(SP) 

PC.LINDEC 

.LIN70X 

SUTOFL (RO) ,-(SP) 

PC.LINDEC 

.LIN7X 

#SWRITN,-(SP) 

RO, (SP> 

PC.SDB2D 
PC.SSUPRL 
, LIN70R 

SRDOFL(RO).-(SP) 

PC.LINDEC 

.LIN7R 

fSREAD.-(SP) 

RO. (SP) 

PC.SD62D 

PC.SSUPRL 

#SUli%SWP 

IS 

PC 


.■TOTAL ERRORS 

;T0 STACK 

.-TYPE IT IN DECIMAL 
.•PRINT 'WTOFL' 

; ;PUSH SUTOFL (RO) ON STACK 
.•TYPE IT IN DECIMAL 
.•PRINT 'URDS UR I TN’ 

.•ADDRESS OF LOW WORD ON STACK 

.‘CONVERT 

;PRINT 

•point •enri * 

.-.'PUSH SRDOFL(RO) ON STACK 
.•TYPE IT IN DECIMAL 
; ’URDS READ' 

.'LOW WORD ADDRESS 

.CONVERT 
.PRINT IT 
; CR-LF 

;SEE IF 'HALT ON ERROR' - SWITCH 15 
;BR IF NOT 
.•SWITCH 15 HALT 


.•PRINT LINE 7A OF ERROR MESSAGE 

.•’TOTAL SEEKS ~XXXXX TOTAL NISPOS ERR * XXX 


TOTAL SKI= XXX' 


441 


447 


023076 

104414 

074214 

LINE7A: 

DISPLY 

023102 

012746 

000052 


MOV 

023106 

060016 



ADD 

023110 

004737 

037222 


JSR 

023114 

004737 

032364 


JSR 

023120 

104414 

074167 


DISPLY 

023124 

016046 

000102 


MOV 

023130 

004737 

023234 


JSR 

023134 

104414 

074232 


DISPLY 

023140 

016046 

000100 


MOV 

023144 

004737 

023234 


JSR 

023150 

104414 

001203 


DISPLY 

023154 

032777 

100000 155772 


BIT 

023162 

001401 



BEQ 

023164 

OOOOCO 



HALT 

023166 

000207 


IS: 

RTS 


.LJN7P 

fSPOSIT.-(SP) 

RO. (SP) 

PC.SD62D 

pc.ssyppi 

-LIN7M 

SMISPO(RO).-(SP) 

PC.LINDEC 

.lJn7S 

SSKKRO).-(SP) 

PC.LINDEC 

iswi^asuR 

IS 


PC 


'TOTAL SEEKS = ' 

TOTAL SEEKS 
DEVICE TABLE ADDRESS 
CONVERT THE SEEK COUNT 
PRINT IT 

' TOTAL NISPOS ERR = ' 

.•TOTAL ERRORS 
TYPE IT IN DECIMAL 
' TOTAL SKI ERR = ' 

CONVERT I PRINT IT 
TYPE IT IN DECIMAL 
CR-LF 

SEE IF HALT ON ERROR - SWITCH 15 SET 
BR IF NOT 
SWITCH 15 HALT 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 22-7 
ERROR MESSAGE GENERATION ROUTINES 


>EQ 0113 


448 

449 

450 

451 023170 

452 023174 

453 023200 

454 

455 

456 
45 7 

458 

459 

460 

461 023202 

462 023206 

463 023212 

464 023216 

465 023224 

466 023226 

467 023230 

468 023232 

469 

470 

471 

472 

473 

474 

475 

476 

477 C23234 

478 023240 

479 023244 

480 023250 

481 023252 


.•PRINT LINE 8 OF THE ERROR MESSAGE 
.-•DIFFERENT ERROR DURING RETRY* 


104414 074343 
004737 021214 
000207 


LINES: DISPLY .LIN8M 
JSR PC.LINE2 

RTS PC 

.•OCTAL TYPEOUT ROUTINE 
.•CALL: 


016646 000002 
004737 033260 
012637 023226 
062737 000005 
104414 
000000 
012616 
000207 


023226 


MOV 

NUM.-(SP) 

JSR 

RETURN 

PC.LINOCT 

MOV 

2(SP).-(SP) 

JSR 

PC.JS820 

MOV 

(SP)*.H 

ADD 

DISPLY 

#5.,1 i 

.WORD 

0 

MOV 

(SPH.(SP) 

RTS 

PC 


.‘PRINT LINE 2 OF ERROR MESSAGE 


;PUT THE NUMBER ON THE STACK 


INOCT: MOV 2CSP),-(SP) ;PUT NUMBER IN PROPER LOCATION ON STACK 
JSR PC.SSB20 .-CONVERT THE NUMBER TO OCTAL 

MOV (SP> ♦ * 1 S .GET THE ADDRESS OF THE ASCII STRING 

ADD #5..li .‘ADDRESS THE LAST 6 ASCII DIGITS 

DISPLY .-TYPE IT 

S: .WORD 0 ; ADDRESS 

MOV (SPH.(SP) .-CORRECT THE STACK 

RTS PC .-RETURN 

ROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
LEADING ZERO SUPRESSION 

CALL ’ MOV NUM.-(SP) .-PUT THE NUMBER ON THE STACK 

JSR PC.LINDEC 
RETURN 


016646 000002 
004737 033230 
004737 032364 
012616 
000207 


LINDEC; MOV 
JSR 
JSR 
MOV 
RTS 


2<SP>, -CSP) 

PC.SSB2D 

PC.SSUPRL 

(SP)MSP) 

PC 


SET UP STACK FOR CONVERT 

CONVERT IT TO DECIMAL 

TYPE IT (WITH LEADING ZEROS SUPRESSED) 

RESTORE STACK POINTER 


K 9 
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1 

2 

3 

A 

5 

6 

7 

8 


.S8TTL GENERAL SUPPORT SUBROUTINES 

DECREMENT THE SECTOR-TRACK ADDRESS 
CALL : 

MOV 0DPB.RO ;DP8 ADDRESS 

JSR PC.READDR 

RETURN 


10 




4CSP) 

• SECTOR ADDRESS 

11 




; 2(SP) 

= TRACK ADDRESS 

12 




; (SP) 

= CYLINDER ADDRESS 

14 023254 

004737 

027462 


READDR: JSR 

PC.GETLMT 

15 023260 

162706 

000006 


SUB 

06, SP 

16 023264 

016616 



MOV 

6(SP).(SP) 

17 023270 

005066 



CLR 

6 (SP) 

18 023274 

005066 

0000C4 


CLR 

4 (SP) 

19 023300 

116066 

002146 

000006 

MOVB 

SRMDA(RO) ,6(SP) 

20 023306 

116066 


000004 

M0V8 

SRMDA+1 CRO) ,4(SP) 

21 023314 

016066 

imurn 

000002 

MOV 

SRMDC (RO) ,2(SP) 

22 023322 

005766 



1$: TST 

6CSP) 

23 023326 

001403 



BEQ 

2 s 

24 023330 

105366 

000006 


DECS 

6(SP) 

25 023334 

000424 



BR 

4$ 

26 023336 

005766 

000004 


2$: TST 

4(SP) 

27 023342 

001406 



BEQ 

3$ 

28 023344 

113766 

001424 

000006 

MOVB 

SECLMT.6(SP) 

29 023352 

105366 

000004 


DECB 

4(SP) 

30 023356 

000413 



BR 

4$ 

31 023360 

005766 

000002 


3S: TST 

2(SP) 

32 023364 

001410 



BEQ 

4$ 

33 023366 

113766 

001424 

000006 

MOVB 

SECLMT,6(SP) 

34 023374 

113766 

001426 

000004 

MOVB 

TRKLMT.4(SP) 

35 023402 

005366 

000002 


DEC 

2(SP) 

36 023406 

005337 

001436 


4$: DEC 

DEC2 

37 023412 

002343 



BGE 

1$ 

38 023414 

005037 

001436 


CLR 

DEC2 

39 023420 

000207 



RTS 

PC 

40 

41 




.•ROUTINE TO CHECK FOR KW11-L OR 1 

43 023422 

012737 

177777 

001312 

CKCLK: MOV 

JM.CLKFLG 

44 023430 

012737 

177777 

001310 

my 

#-1 .PCLOCK 

45 023436 

013746 

000004 


MOV 

ERRVEC, -<SP) 

46 023442 

012737 

023516 

000004 

MOV 

fCKCLKl. ERRVEC 

47 023450 

005777 

155622 


TST 

iSLKCSR 

48 023454 

005037 

001312 


CLR 

CLKFLG 

49 023460 

005037 

001310 


CLR 

PCLOCK 

50 023464 

013701 

001302 


mov 

SLPVEC.R1 

51 023470 

012721 

025110 


my 

#CL0CK,(R1)* 

52 023474 

012711 

000300 


MOV 

#300, <R1) 

53 023500 

012777 

174575 

155572 

my 

#-1667. .BSLKCSB 

54 023506 

012777 

000131 

155562 

MOV 

#131. ISLKCSR 

55 023514 

000441 



BR 

CKCLK3 

56 

57 023516 

012716 

023524 


CKCLK 1: MOV 

#1S.(SP) 


GET ADDRESS LIMITS 

DECREMENT THE STACK POINTER 

MOVE THE RETURN ADDR DOWN THE STACK 

CLEAR STACK FOR SECTOR 

CLEAR STACK FOR TRACK 

SECTOR ON STACK 

; TRACK ADDRESS 
CYLINDER ADDRESS 
SECTOR 0 ? 

BRANCH IF SO 
DECREMENT ONE SECTOR 
BRANCH TO EXIT 
ALSO ON TRACK 0 ? 

BRANCH IF SO 
LAST SECTOR 
DECREMENT ONE TRACK 
EXIT 

ALSO ON CYLINDER 0 ? 

BR IF YES 
LAST SECTOR 
GET LAST TRACK 

DECREMENT ONE CYLINDER COUNT 
DECREMENT TWICE YET ? 

BR IF NO 

DECREMENT TRK/SEC ONLY ONCE NEXT TIME 
RETURN 


CLEAR CLOCK AVAILABILITY FLAG 

CLEAR KW11-P CLOCK AVAILABILITY FLAG 

.-PUSH ERRVEC ON STACK 

SET UP VECTOR FOR CLOCK CHECK 

CHECK FOR KW11-P 

SET CLOCK AVAILABILITY FLAG 

SET KW11-P CLOCK FLAG 

KW11-P VECTOR ADDRESS 

SET UP KW11-P VECTOR 

PSW - PRI 6 

LOAD COUNTER BUFFER WITH 16.67 
SET CLOCK - CNT UP. 10US, CONT INT 


.SETUP RETURN ADDRESS 


SEQ 0114 
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L 9 


#CKCLK2,ERRVEC 

a$LKS 

CLKFLG 

SLLVEC.R1 

#CLOCK, (R1 )+ 

#300, (fil) 

#ioo,atLKs 

CKCLK3 


#1$,(SP) 


.NEDCLK 

iAuroe 

2 $ 

SGET42 


START 

(SPJ+.ERRVEC 

PC 


CHANGE ERROR VECTOR TO CHECK FOR KW11-L 

LOOK FOR KW11-L 

SET CLOCK FLAG 

KW11-L VECTOR ADDRESS 

SET UP KW11-L VECTOR 

psy - PRI 6 

SET KW11-L INTERRUPT 


SETUP RETURN ADDRESS 

•P OR L CLOCK MUST BE ON SYSTEM* 
RUNNING IN AUTO MODE ? 

BR IF NOT 
ABORT PROGRAM 
HALT 

TRY AGAIN 

RESTORE THE ERROR VECTOR 


oJC*4C^o^r«jrNjr\jr\jr\jrvjrvjr\jr\j 

i^r\j— »0'OC»^jO'-n4^0^rv -■»0>OOo^jO'-n-f'C^f\j— •O'OOo^jCM-ni^ iwrvi— •O'OOO-N/O'-n^wrv)— *>OOD -v/Oi-n^cwrvi 
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SEQ 0116 


64 





; 

JSR 




9 

RETURN 

023626 



STATPR: 


023626 

010046 



MOV 

023630 

010446 



MOV 

023632 

005737 

001542 


TST 

023636 

001423 



SEQ 

023640 

104401 

001203 

2$: 

TYPE 

023644 

004737 

023742 


JSR 

023650 

005004 



CLR 

023652 

006304 


3$: 

ASL 

023654 

016400 

002056 


MOV 

023660 

006204 



ASR 

023662 

136437 

040300 001542 


BITS 

023670 

001402 



8EQ 

023672 

004737 

023752 


JSR 

023676 

005204 


4$: 

INC 

023700 

020427 

000010 


CMP 

023704 

001362 



BNE 

023706 



5$: 


023706 

012604 



MOV 

023710 

012600 



NOV 

023712 

000207 



RTS 


ROUTINE TO DISPLAY STATISTICS FOR ASSIGNED DRIVES 
CALL: 


PC.STATPR 


RO.-(SP) 

R4.-(SP) 

ASNLST 

5$ 

.SCRLF 

PC.SHDTYP 

R4 

R4 

BLKADR(R4> 

R4 

ATA8IT(R4) 

4$ 

PC.SDETAL 

R4 

R4,#8. 

3 $ 

(SP) ♦,P4 
(SP>*. R0 
PC 


;PUSH RO ON STACK 
;PUSH R4 ON STACK 
ANY DRIVES ASSIGNED ? 

BR IF NOT 
CR-LF 

TYPE THE HEADING 
CLEAR THE DRIVE INDEX 
.CHANGE TO INDEX WORDS 
.RO ;GET THE DRIVE’S BLOCK ADDRESS 
.RESTORE R4 

.ASNLSt ;IS THIS DRIVE ASSIGNED ? 

;BR IF NOT 

.-TYPE THE PERFORMANCE SUMMARY 
.•INCREMENT THE INDEX 
; FINISHED ? 

;8R IF NO 

;;POP STACK INTO R4 
;;POP STACK INTO RO 
;RETURN 





.-CALL: 





; MOV 

fDPB.RO 




; JSR 

PC. SUMARY 




; RETURN 


023714 

010046 


SUMARY: MOV 

RO.-(SP) 

023716 

010446 


MOV 

R4. -<SP> 

023720 

004737 

023742 

JSR 

PC.SHDTYP 

023724 

005004 


CLR 

R4 

023726 

111004 


M0V8 

(R0).R4 

023730 

004737 

023752 

JSR 

PC.SDETAL 

023734 

012604 


MOV 

ISP)*. R4 

023736 

012600 


NOV 

<SP>*. RO 

023740 

000207 


RTS 

PC 


ROUTINE TO TYPE THE PERFORMANCE SUMMARY (STATISTICS! FOR AN INDIVIDUAL 
DRIVE. 

;DP B ADDRESS 


.SAVE RO 
.-SAVE R4 

.-TYPE THE HEADING 
.-CLEAR R4 FOR DRIVE NUMBER 
; DRIVE NUMBER 
.-TYPE THE STATISTICS 
.RESTORE R4 
.•RESTORE RO 
.RETURN 

TYPE THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 
CALL: 

JSR PC.SHDTYP 
RETURN 


023742 004537 032574 
023746 075626 
023750 000207 


SHDTYP: JSR 

SUMHD 

RTS 


R5.TYPRI4 

PC 


TYPE THE PERFORMANCE SUMMARY 
CALL: 

MOV IDR1VE.R4 


TYPE SUMMARY HEADER 

HEADER 

RETURN 


.•DRIVE NUMBER 
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sea on? 


65 

66 

67 

68 023752 
023752 
023756 


104401 

000404 


023760 


024054 

81 024054 

82 024060 

83 024064 

84 024070 

85 024072 

86 024076 

87 024102 

88 024106 

89 024112 

90 

91 

92 024116 
024122 

024142 

93 024142 
024146 

94 024150 

95 024154 
024160 

024200 

96 024200 

97 024202 

98 024206 

99 024212 

100 024216 

101 
102 

103 024222 
024226 


016046 

004737 

004537 

000003 

104401 

104401 

004737 

104401 

004737 


104401 

000407 


016046 

104405 

104401 

104401 

000407 


010046 

062716 

004737 

004737 

104401 


104401 

000406 


000104 

033230 

032470 

076141 

075234 

032622 

075234 

032652 


024124 


000056 

076141 

024162 


000060 

037222 

032300 

076141 


024230 


MOV #DPB,RO 
RETURN 


SDETAL: 


;:65$: .ASCIZ <CRLF>/TIME / 


023770 

69 023770 

70 

71 

72 023774 

004737 

024764 

64$: 

JSR 

PC.STIME 

104401 

001203 

.•TYPE LINE 2 OF 
TYPE 

SUMMARY 

,$CRLF 

73 024000 

104401 

075304 

TYPE 

.UNTMSG 

74 024004 

010446 


MOV 

R4.-(SP) 

024006 

024010 

104403 

002 


TYPOS 

.BYTE 

2 

024011 

000 


.BYTE 

0 

75 024012 

104401 

075234 

TYPE 

.BLNKS1 

76 024016 

104401 

075300 

TYPE 

.DASH 

77 024022 

104401 

075234 

TYPE 

.BLNKS1 

78 024026 

104401 

075520 

TYPE 

,$RM80 

79 024032 

104401 

075276 

TYPE 

.COMMA 

80 024036 

104401 

024044 

TYPE 

,67* 

66$ 

024042 

000404 


BR 


; * 67$ : .ASCIZ 

/ PASS / 


MOV 

JSR 

JSR 

.WORD 

TYPE 

TYPE 

JSR 

TYPE 

JSR 

;TYPE LINE 3 OF 
TYPE 


SPASSC(RO), 

PC.SS82D 

R5.REPLZ 

.PERIOD 

.BLNKS1 

PC.TYDRV 

.8LNKS1 

PC.TYHDA 


;DP8 ADDRESS 


; ; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


.-TYPE ELAPSED TIME 


CR-LF 

TYPE 'DRIVE' 

;SAVE R4 FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
.-TYPE 2 DIGIT(S) 
■SUPPRESS LEADING ZEROS 
TYPE 1 BLANK 
TYPE •-* 

TYPE 1 BLANK 
TYPE DRIVE TYPE 
TYPE V 

.TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


•(SP> ;PUT THE PASS COUNT ON THE STACK 

.•CONVERT IT 


;TYPE IT 
.-TYPE 3 DIGITS 
.•TYPE 

.-TYPE 1 BLANK 

.-TYPE DRV SERIAL NUMBER 

.•TYPE 1 BLANK 

;TY PE HDA SERIAL NUMBER 




; ;71$: 

* 6 $: 


BR 

.ASCIZ 

MOV 

TYPDS 

TYPE 

TYPE 

BR 

.ASCIZ 


summary 

,69$ .-.TYPE ASCIZ STRING 

68$ ;;GET OVER THE ASCIZ 

<CRLFXLF>/WT OFLOW / 

SWTOFL(RO) ,-(SP) ;;SAVE SWTOFL(RO) FOR TYPEOUT 

;;G0 TVP| — DECIMAL ASCII WITH SIGN 
.PERIOD .-TYPE V 

J 1$ :;TYPE ASCIZ STRING 

?0$ ;;GET OVER THE ASCIZ 

/ WRDS URITN / 


RO.-CSP) 

#$WRITN.(SP> 

PC.JDB2D 

PC.SUPRS 

.PERIOD 


;TYPE LINE 4 OF SUMMARY 
TYPE .73$ 

BR > 2 $ 


.-GET ADDRESS OF DPB 

.•POINT TO LOW NUMBER OF URDS WRITTEN 

; CONVERT DECIMAL NUMBER 

.SUPPRESS LEADING ZEROS AND TYPE 

.•TYPE 


.-.-TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
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;;73$: 

.ASCIZ 

<CRLF>/RD OFLOW 


024244 






104 

024244 

016046 

000064 


MOV 

$RDOFL(RO).-(SP) 


024250 

104405 



TYPDS 


105 

024252 

104401 

076141 


TYPE 

.PERIOD 

106 

024256 

i 04401 

024264 


TYPE 

,75$ 


024262 

000407 



BR 

7 4$ 





; ; 75$: 

.ASCIZ 

/ WRDS READ / 


024302 



H$: 



107 

024302 

010046 



MOV 

RO.-(SP) 

108 

024304 

062716 

000066 


ADD 

#$READ.(SP) 

109 

024310 

004737 

037222 


JSR 

PC.SDB2D 

110 

024314 

004737 

032300 


JSR 

PC.SUPRS 

111 

110 

024320 

104401 

076141 


TYPE 

.PERIOD 

lie 

113 




.-TYPE i 

LINE 5 OF 

SUMMARY 

IK 

024324 

104401 

024332 


TYPE 

4 77$ 


024330 

000404 



BR 

76$ 





;;77$: 

.ASCIZ 

<CRLF>/SEEKS / 


024342 



*6$: 



115 

024342 

010046 



MOV 

RO.-(SP) 

116 

024344 

062716 

000052 


ADD 

#$POSIT,(SP) 

117 

024350 

004737 

037222 


JSR 

PC.$D82D 

118 

024354 

004737 

032300 


JSR 

PC.SUPRS 

119 

1 Ofl 

024360 

104401 

076141 


TYPE 

.PERIOD 

ICO 

129 




; TYPE 

LINES 6 AND 7 OF SUMMARY 

130 

024364 

104401 

024372 


TYPE 

,79$ 


024370 

000405 



BR 

78$ 





;;79$: 

.ASCIZ 

<CRLF>/ERRORS:/ 


024404 



>6$: 



131 

024404 

104401 

024412 


TYPE 

,81$ 


024410 

000404 



BR 

6o$ 





:;81$: 

.ASCIZ 

<CRLF>/SOFT / 


024422 



§6$: 



132 

024422 

016046 

000074 


MOV 

$SCFT(RO),-(SP) 


024426 

104405 



TYPOS 


133 

024430 

104401 

076141 


TYPE 

.PERIOD 

134 

024434 

104401 

024442 


TYPE 

.83$ 


024440 

000404 



BR 

62 $ 





;;83J: 

.ASCIZ 

/ HARD / 


024452 



bit: 



135 

024452 

016046 

000076 


MOV 

$HARD(RO) ,-(SP) 


024456 

104405 



TYPDS 


136 

024460 

104401 

076141 


TYPE 

.PERIOD 

137 

024464 

104401 

024472 


TYPE 

.85$ 


024470 

000403 



BR 

64$ 





;;85S: 

.ASCIZ 

/ SKI / 


024500 



64$: 



138 

02 4500 

016046 

000100 


MOV 

$SKI(RO).-(SP) 


024504 

104405 



TYPDS 


139 

024506 

104401 

076141 


TYPE 

.PERIOD 

140 

024512 

104401 

024520 


TYPE 

.87$ 


024516 

000404 



BR 

66$ 





;;87$: 

.ASCIZ 

/ MISP 7 


024530 



66$: 



141 

024530 

016046 

000102 


MOV 

$MISPO(RO),-(SP) 


; ; SAVE $RDOFL (R0) FOR TYPEOUT 
; 60 TYPfc— DECIMAL ASCII WITH SIGN 


GET ADDRESS OF DPS 

POINT TO LOW NUMBER OF WRDS READ 

CONVERT DECIMAL NUMBER 

SUPPRESS LEADING ZEROS AND TYPE 

TYPE 


;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


PUT SPOSIT ON THE STACK 
POINT TO LOW NUMBER OF SEEK COUNT 
CONVERT DECIMAL NUMBER 
SUPPRESS LEADING ZEROS AND TYPE 
TYPE 


;;TVPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;;G0 TYPE— DECIMAL ASCII WITH SIGN 
.•TYPE 

; ; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;;G0 TYPE— DECIMAL ASCII WITH SIGN 
;*VPE 

;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 

;;SAVE SSKI(RO) FOR TYPEOUT 

;;G0 TYPE— DECIMAL ASCII WITH SIGN 

;fvPE 

; ; TYPE ASCIZ STRING 
;;GET OVER THE *SCIZ 

; ; SAVE IMISPO(RO) FOR TYPEOUT 


SEO 0118 
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024534 

104405 


TYPDS 

142 

024536 

104401 

076141 

TYPE 

143 

024542 

104401 

024550 

TYPE 


024546 

000404 


BR 





;:89$: .ASCIZ 


024560 



bb S: 

144 

024560 

Cl 60*6 

000072 

MOV 

147 

024564 

166016 

000074 

sue 


024570 

166016 

000076 

SUB 


024574 

166016 

000100 

SUB 


024600 

166016 

000102 

SUB 

148 

024604 

104405 


TYPDS 

149 

024606 

104401 

076141 

TYPE 

150 

024612 

104401 

001203 

TYPE 

151 

024616 

000207 


RTS 


PAGE 24-3 


;;GO TYPE’— DECIMAL ASCII WITH SIGN 
.PERIOD .-TYPE 

.89$ ;;TVPE ASCIZ STRING 

&8S ; ; GET OVER THE ASCIZ 

/ OTHER / 

$TOTAL(RO;,-(SP> ; CALCULATE NUMBER Of OTHER ERRORS 

$SOf T CRO) , (SP> .-SUBTRACT SSOFT f ROM $TOTAL 
SHARD (RO).(SP) .-SUBTRACT SHARD FROM STOTAL 
SSKKROKISP) .-SUBTRACT SSKI FROM STOTAL 
SMISPi)(RO).(SP> .-SUBTRACT SMISPO FROM STOTAL 

.- ; GO TYPE— DECIMAL ASCII WITH SIGN 
.PERIOD .-TYPE 

.SCRLF .-CR-LF 

PC 


SEO 0119 
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SEO 0120 


1 

15 

16 


17 


18 


19 


20 


024620 

005737 

001342 

INCSOF : TST 

BADSEC 

024624 

001006 


BNE 

IS 

024626 

026027 

0OCO74 077777 

CMP 

SSOFT (RO). #77777 

024634 

103002 


BHIS 

IS 

024636 

005260 

000074 

INC 

SSOFT (RO) 

024642 

000207 


IS: RTS 

PC 


024644 

005737 

001342 

INCHRD: 

TST 

024650 

001006 

000076 077777 


BNE 

024652 

026027 


CMP 

024660 

103002 



BHIS 

024662 

005260 

000076 


INC 

024666 

000207 


IS: 

RTS 


024670 

005737 

001342 

INCSKI: TST 

024674 

001006 

000100 077777 

BNE 

024676 

026027 

CMP 

024704 

103002 


BHIS 

024706 

0052o0 

000100 

INC 

024712 

000207 


IS: RTS 


024714 

005737 

001342 

1NCMIS: 

TST 

024720 

001006 

000102 0,7777 


BNE 

024722 

026027 


CMP 

024730 

103002 



BHIS 

024732 

005260 

000102 


INC 

024736 

000207 


IS: 

RTS 


ROUTINE TO INCREMENT (SOFT 

NOTE: SSOFT WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 

;SEE IF BAD TRK/SEC INDICATOR SET 
;BR IF IT'S SET, DON'T INCREMENT COUNT 
;IS SSOFT ALREADY AT MAXIMUM ? 
;8R IF IT IS 

; INCREMENT SSOFT 

.RETURN 

ROUTINE TO INCREMENT SHARD 

NOTE: SHARD WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 

BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 

IS ;BR IF IT'S SET, DON'T INCREMENT COUNT 

SHARD (RO ) .077777 ;IS SHARD ALREADY AT MAXIMUM ? 

IS ;BR IF IT IS 

SHARD (RO) .‘INCREMENT SHARD 

PC .‘RETURN 

ROUTINE TO INCREMENT SSKI 

NOTE: SSKI WILL NOT BE INCREMENTED BEYOND 77777 ( 32767 .) 

BADSEC .‘SEE IF BAD TRK/SEC INDICATOR SET 

IS ;BR IF IT'S SET, DON'T INCREMENT COUNT 

SSKI (RO) ,#77777 ;IS SSKI ALREADY AT MAXIMUM ? 

IS ;BR IF IT IS 

SSKI (RO) .‘INCREMENT SSKI 

PC .RETURN 

ROUTINE TO INCREMENT SM1SP0 

NOTE: SHISPO WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 

BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 

IS :8R IF IT'S SET. DON'T INCREMENT COUNT 

SMI SPO ( RO) ,#7777t ;IS SM1SP0 ALREADY AT MAXIMUM ? 

IS ;BR IF it IS 

SMISPO(RO) ; INCREMENT SMI SPO 

PC ; RETURN 

ROUTINE TO INCREMENT STOTAL 

NOTE: STOTAL WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 


024740 005737 001342 
024744 001006 

024746 026027 000072 077777 
024754 103002 
024756 005260 000072 
024762 000207 


INCTOT: TST 
BNE 
CMP 
BHIS 
INC 

IS: RTS 


BADSEC .'SEE If BAD TRK/SEC INDICATOR SET 

IS :BR IF IT'S SET, DON’T INCREMENT COUNT 

STOTAL (R0),#7777t ;IS STOtAL ALREADY AT MAXIMUM ? 

IS ;BR IF it IS 

STOTAL (RO) .-INCREMENT STOTAL 

PC ; RE TURN 




SEO 0121 


CLOCK ON THE SYSTEM ? 

BR IF NOT 

ASSUME 2 DJGI T S TO TYPE 
PUT 'HOURS' ON THE STACK 
100. HOURS OR MORE ? 

BR IF NO 

TYPE 3 DIGITS 

1000. HOURS OR MORE ? 

BR IF NO 
TYPE 4 DIGITS 
CONVERT TO DECIMAL 
TYPE IT 

NUMBER OF HOUR DIGITS TO TYPE 
» . • 

PUT 'MINUTES' ON THE STACK 
CONVERT TO DECIMAL 
TYPP IT 

TYPE 2 DIGITS 
• . « 

PUT SECONDS ON THE STACK 
CONVERT TO DECIMAL 
TYPE IT 
TYPE 2 DIGITS 


INCREMENT THE ONE SECOND COUNTER 
BR IF A SECOND NOT COUNTED 
RESTORE THE VALUE 
COUNT THE SECOND 
AT MAXIMUM ? 

BR IF NOT 

CLEAR THE SECOND'S COUNTER 

COUNT THE PERFORMANCE SUMMARY INTERVAL 

COUNT THE MINUTE 

AT MAXIMUM ? 

BR IF NOT 

CLEAR THE MINUTE'S COUNTER 
COUNT THE HOURS 
CPU RUNNING 3 50HZ ? 

BR IF YES 

16MS ON THE STACK i 60HZ 


;20MS ON THE STACK i 50HZ 

.‘DRIVER TIMER ROUTINE 

.DISPLAY THE PERFORMANCE SUMMARY ? 

‘BR IF NOT 

•DISPLAY INTERVAL FINISHED ? 

*BR IF NOT 

■SET PERFORMANCE SUMMARY DISPLAY FLAG 
.‘CLEAR THE PERFORMANCE INTERVAL COUNTER 


I 

L 
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F 10 


10 025254 

11 025244) 

12 025262 

13 025264 

14 025272 

15 025276 

16 025304 

17 025310 

18 025314 

19 025320 

20 025324 

21 

22 025330 

23 025332 

24 025334 

25 025340 

26 025342 

27 025346 

28 025350 

29 

30 025354 

31 025356 

32 025362 

33 025364 

34 025370 

35 025372 

36 025376 

37 025400 

38 025404 
'9 025406 
.0 025412 

41 025420 

42 025422 

43 025426 

44 025430 

45 025436 

46 025440 

47 025444 

48 025446 

49 025454 

50 025456 

51 025462 

52 025464 

53 025472 

54 025474 

55 025500 

56 025502 

57 025510 


005737 

100375 

104412 

012737 

013704 

012764 

005037 

104401 

004737 

004737 

104401 


104411 

012605 

005737 

001405 

005737 

001136 

000137 


122715 

001465 

122715 

001410 

121527 

101117 

121527 

103514 

142715 

122765 

001003 

004737 

000506 

122765 

001003 

004737 

000477 

122765 

001003 

004737 

000470 

122765 

001012 

005737 

001053 

032777 

001047 


COMMAND DECODE ROUTINE 
CALL : 

MOV #1 , CFLAG 


040276 


000200 

040310 

000040 

001340 

001203 

024764 

033326 

076231 


001340 

001542 

003532 


000124 

000101 

0000o7 

000060 

177770 

000124 

026556 


177776 

000010 


177777 


000104 177777 
026356 

000123 177777 
026464 

000127 177777 
001440 

000001 153444 


JSR 

RET URN 1 
RETURN2 

TST 

BPL 

SAVREG 

MOV 

MOV 

MOV 

CLR 

TYPE 

JSR 

JSR 

TYPE 

RDL1N 

MOV 

TST 

BEQ 

TST 

BNE 

JMP 

INC 

CMP8 

BEQ 

CMP8 


PC,KSR 


BLO 

B1C8 


CMP8 

BNE 


CMPB 

BNE 

TST 

BNE 

BIT 

BNE 


#PR4.PS 

RMADR.R4 

#CLR,RMCS2(R4) 

CFLAG 

,$CRLF 

PC, STINE 

PC,$TKINT 

,ENTCOH 


<SP)*,R5 

CFLAG 

2S 

ASNLST 

13S 

START 

R5 

#'T,(R5) 

9$ 

#'A.<n5) 

3$ 

(R5),#'7 

12S 

<R5>.#'0 

12$ 

#*C7, (R5) 
#*T,-1 (R5) 
4$ 

P^NEWASN 

#'D,-1 (R5) 
5$ 

P^DEASGN 

#’S,-1 (R5) 
6$ 

PC.SCNND 

13$ 

#'W,-1(R5) 

8 $ 

RDONLY 

11 $ 

#SWO.iSWR 

11 $ 


SEQ 0122 


’CFLAG’ IS NORMALLY SET BY THE TTY SERVICE 
ROUTINE IN INTERRUPT MODE 

SYSTEM BUSY RETURN 

RETURN AFTER KEYBOARD SERVICED 

ANY DATA TRANSFERS UNDER WAY ? 

BR IF YES 

SAVE THE REGISTERS 

SET PRIORITY TO 4 

GET RM/RH BASE ADDRESS 

CLEAR NASS8U5 CONTROLLER 

CLEAR THE 'CONTROL C’ FLAG 

CR-LF 

TYPE THE TIME 
INITIALIZE TTY KEYBOARD 
'ENTER COMMAND' 

READ THE KEYBOARD 
GET ADDRESS OF INPUT STRING 
CHECK THE CONTROL C FLAG 
BR IF NO 'CONTROL C ENTERED 
ANY DRIVES ASSIGNED ? 

BR IF YES 
JUMP TO START 

POINT TO SECOND CHARACTER 
EQ TO A '7* ? 

YES 

EO TO AN 'A' 

BR IF IT IS 

DRIVE NUMBER GREATER THAN AN ASCII 7 ? 

8R IF IT IS 

DRIVE NUMBER LESS THAN AN ASCII 0 ? 

6R IF IT IS 

LEAVE ONLY LOWER 3 BITS IF CHAR NOT 'A* 

EO TO *r 
BR IF NOT EQ 
ASSIGN DRIVE FOR TEST 
EXIT 

EQ TO *D* ? 

BR IF NOT EQ 
DEASSIGN DRIVE 
EXIT 

EQ TO 'S' 

8R IF NOT EQ 
TYPE STATISTICS 
EXIT 

EQ TO 'U* 

8R IF NOT EQ 

LOCKED IN r *EAD ONLY" NODE ? 

BR IF YES 
IS SWITCH 0 SET ? 

BR IF SET, CAN'T DO 'W' COMMAND 


l 
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P^DATAPK 

#'R,-1 (R5) 
12S 

P^REDAPK 

J'W.-1(R5> 

12S 

RDONLY 

IIS 

tswo.aswR 

IIS 

#'A.1(R5> 

10S 

1 (R5) ,9*7 
12S 

1(R5),#'0 

12 $ 

0*C7,1 (R5) 

PC.UATPAK 

13i 

f HSWRO 

Is 

.INVLD 

1$ 

dSTKS 

#8IT06.aSTK$ 

PS 

PC 


WRITE A DATA PACK 
EXIT 

EQ TO 'R' ? 

8 R IF NOT EO 
READ A DATA PACK 
EXIT 

WT COMMAND ? 

NO 

LOCKED IN ‘R2AD ONLY'’ MODE ? 

8 R IF YES 
IS SWITCH 0 SET ? 

8R IF SET- CAN'T DO 'U' COMMAND 
ALL DRIVES ? 

YES 

GREAT THAN 7 
YES 

LESS THAN 0 
YES 

CHOP OFF THE HIGHER BITS 
ASSIGN DRIVES WITH WT COMMAND 

TYPE 'CAN'T WRITE IN READ ONLY MODE' 
TRY AGAIN 

TYPE 'INVALID COMMAND' MESSAGE 

TRY AGAIN 

RESTORE RO - R5 

CLEAR THE TTY BUFFER 

SET TTY INTERRUPT ENABLE 

SET PRIORITY BACK TO ZERO 

RETURN 


5CESS THE ASSIGN REQUEST <»T', 'R\ OR *W COMMANDS) 


(R5) ,R4 
CFLAG 
DRVPAR 
.MSPRM 

(SPJ+.RO 

CFLAG 

IS 

(RO) 

3S 

1(R0) 

2 $ 

f'MRO) 

AS 

f'N.(RO) 

3S 

-BADENT 

Is 

DRVPAR 

f'A.RA 

ASGN2 

iUNTASN.ASNMSG 

XXDP 


;PUT DRIVE # IN R4 
.CLEAR CONTROL C FLAG 
; ASSUME CHANGING DRIVE PARAMETERS 
.‘TYPE 'CHAN6E DRIVE PARAMETERS ?’ 

.READ THE ENTRY 

.SAVE ADDRESS OF RESPONSE 

;WAS IT CONTROL C ? 

*6R IF YES 

•WAS RESPONSE A CARRIAGE RETURN (DEFAULT 'N')? 

.qr |f y{5 

•WAS IT TERMINATED WITH CARRIA6E RETURN ? 

;BR IF NO 

;WAS IT A *Y* RESPONSE ? 

;8R IF YES 

.-WAS IT A 'N* RESPONSE ? 

!‘TVPE F BAD S ENTRY MESSAGE 
.‘TRY AGAIN 

;D0 NOT CHANGE DRIVE PARAMETERS 
.ASSIGN ALL DRIVES ? 

;BR IF YES 

.•'DRIVE ASSIGNED' MESSAGE ADDRESS 
.•LOADED FROM THIS DEVICE ? 
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115 025776 

001407 




BEQ 

IS ;l 

116 026000 

123704 

001444 



CMPB 

XX0P.R4 

117 026004 

001004 




BNE 

IS 

118 026006 

012737 

075464 

031200 


MOV 

fLODEV.ASNMSG ; 

119 026014 

000407 




BR 

2$ 

120 026016 

136437 

040300 

001542 

IS: 

BITB 

ATABIT(R4),ASNLST 

121 026024 

001003 




BNE 

2S 

122 026026 

004737 

026130 



JSR 

PC.ASGN3 

123 026032 

000207 




RTS 

PC 

124 026034 

125 

126 026040 

000137 

031154 


?S: 

JMP 

ASNERR 

005004 



ASGN2: 

CLR 

R4 

127 026042 

012737 

075355 

031200 

1$: 

MOV 

fUNTASN.ASNMSG ; 

128 026050 

005737 

001444 



TST 

XXDP 

129 026054 

001407 




BEQ 

2S 

130 026056 

12370* 

001444 



CMPB 

XXDP.R4 

131 026062 

001004 


031290 


BNE 

2S 

132 026064 

012737 

075464 


MOV 

fLODEV.ASNMSG ; 

133 026072 

000413 




BR 

4S 

134 026074 

136437 

040300 

001542 

21: 

BITB 

ATABIT(R4) .ASNL5T 

135 026102 

001007 




BNE 

4S 

136 026104 

004737 

026130 



JSR 

PC.ASGN3 

137 026110 

005204 



3$: 

INC 

R4 

138 026112 

020427 

000007 



CMP 

R4,#7 

139 026116 

003751 




BLE 

IS 

140 026120 

000207 




RTS 

PC 

141 026122 

004737 

031154 


4$: 

JSR 

PC. ASNERR 

142 026126 

000770 




BR 

3S 

143 

144 026130 

136437 

040300 

001542 

AS6N3: 

BITB 

ATABIT(R4).ASNLST 

145 026136 

001060 




BNE 

ASGN4 

146 026140 

110437 

067556 



M0V8 

R4.6ENDPB 

147 026144 

006304 




ASL 

R4 

148 026146 

016400 

002056 



MOV 

8LKADR(R4),R0 

149 026152 

004737 

015624 



JSR 

PC.RECALO 

150 026156 

006204 




ASR 

R4 

151 026160 

105764 

040164 



TSTB 

DRVSTA(R4) 

152 026164 

001453 




BEQ 

ASGN7 

153 026166 

100445 




6MI 

ASGN6 

154 026170 

004737 

026630 



JSR 

PC.CLRDPB 

155 026174 

004737 

027550 



JSR 

PC.GETID 

156 026200 

004537 

027650 



JSR 

R5.GETADR 

157 026204 

005737 

001442 



TST 

DRVPAR 

158 026210 

001017 




BNE 

IS 

159 026212 

104401 

076034 



TYPE 

.DRNUM 

R4.-(SP) 

160 026216 

010446 




MOV 

026220 

104403 




TYPOS 


026222 

002 




.BYTE 

2 

026223 

000 




.BYTE 

0 

161 026224 

162 026230 

104401 

001203 



TYPE 

.SCRLF 

004737 

032622 



JSR 

PC.TYDRV 

163 026234 

104401 

075302 



TYPE 

£c?tvhda 

164 026240 

004737 

032652 



JSR 

165 026244 

104401 

001203 



TYPE 

.SCRLF 

166 026250 

006304 



1$: 

ASL 

64 

167 026252 

004737 

027054 



JSR 

PC.DRVPRM 

168 026256 

004737 

030254 



JSR 

PC.MANTER 


'LOAD DEVICE' MESSAGE ADDRESS 

; DRIVE ALREADY ASSIGNED ? 


; ALREADY ASSIGNED ? 

YES 

ASSIGN THE DRIVE 
INCREMENT DRIVE # 

ALL DRIVE CHECKED ? 

NO 

YES 

ERROR MESSAGE 
TO LOOP 

; DRIVE ALREADY ASSIGNED ? 

SR IF IT IS 
GET DRIVE NUMBER 
MAKE R4 WORD INDEX 
PUT BLOCK'S ADDR INTO RO 
RECALIBRATE DRIVE 
MAKE R4 BYTE INDEX 
DRIVE AVAILABLE? 

BR IF DRIVE OFFLINE OR NONEXISTENT 

BR IF DRIVE UNSAFE 

CLEAR BLOCK FOR DRIVE JUST ASSIGNED 

GET DRIVE (MBA) SERIAL NUMBER 

RETRIEVE BAD SECTOR FILE 

CHAN6E DRIVE PARAMETERS ? 

BR IF NO 

TYPE DRIVE MESSAGE 
SAVE R4 FOR TYPEOUT 
60 TYPE— OCTAL ASCII 
TYPE 2 DIGIT CS) 

SUPPRESS LEADING ZEROS 
CR-LF 

TYPE DRV SERIAL NUMBER 
TYPE TAB CONTROL 
TYPE HDA SERIAL NUMBER 
CR-LF 

MAKE R4 WORD INDEX 

GET THE DRIVE'S ADDRESS LIMITS 

MANUALLY ENTER BAD SECTOR INFORMATION 


SEO 0124 



PAGE 27-3 


SEQ 0125 


I 10 


BLKADR(RA) .NEWUNT (R4) ;DPB ADDRESS 
PACK,$PACK(R0) ;SET REA&/WRITE DATA PACK INDICATOR 
R4 ;«AKE R4 BYTE INDEX 

PC ; RE TURN 

#NOTSAF,ASNMSG ; 'UNSAFE' MESSAGE ADDRESS 
ASNERR ;TO ERROR ROUTINE 


DRVTYP(RA) 

IS 

2S 

#NOTRM,ASNMSG 

3$ 

#NOTPRS,ASNMSG 

3S 

fUNTOFF ,ASNMSG 
ASNERR 


DRIVE PRESENT? 

BR IF NOT 

BR IF DRIVE OFFLINE 
ADDRESS OF 'NOT RM80* MSG 
EXIT 

ADDRESS OF 'NOT PRESENT' MSG 
EXIT 

ADDRESS OF 'DRIVE OFFLINE’ MESSAGE 
TO ERROR ROUTINE 



W\j— * 0000 '^0»-n X'C^rvj— »0v000'^(>'-ni'0^r\j— *0'0 oo>jOv/i^t^(\j— ‘OOOo^J^ *0'00o->joi-n-^iwr\j 


CZRNAAO 

GENERAL 

1 


J 10 

RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 2R 
SUPPORT SUBROUTINES 


.-•O' COMMAND (ROUTINE TO DEASSIGN A DRIVE) 


026356 

005004 



DEASGN: 

CLR 

R4 

.-START WITH DRIVE 0 

026360 

012703 

000010 




MOV 

#8.,R3 

.-COUNTER 

026364 

122715 

000101 




CMP8 

#'A,(R5) 

,-DEASSIGN ALL DRIVES ? 

026370 

001403 





BEQ 

IS 

;8R IF YES 

026372 

111504 





MCV8 

(R5) ,R4 

.’GET DRIVE NUMBER 

026374 

012703 

000001 




MOV 

#1 ,R3 

.-SET R3 FOR ONE DRIVE 

026400 

136437 

040300 

001542 

IS: 


BITB 

ATABI T (R4) # ASNLST ;DRIVE ASSIGNED ? 

026406 

001417 





BEO 

3S 

;8R IF NOT 

026410 

146437 

040300 

001542 



BICB 

ATABI T(R4),ASNLST .-DELETE THE DRIVE FROM THE ASSIGNED 

026416 

146437 

040300 

032012 



BIC8 

ATABI T(R4).AUTLST .-DELETE DRIVE FROM AUTO ASSIGN LIST 

026424 

006304 





ASL 

R4 

.-MAKE ADDR INTO A WORD INDEX 

026426 

016464 

002056 

001544 



MOV 

8LKADR(R4) ,DDRVS(R4) .-PUT ADDRESS IN DEASSIGN LIST 

026434 

006204 





ASR 

R4 


026436 

005303 



2S: 


DEC 

R3 

.-ANY MORE DRIVES ? 

026440 

001410 





BEO 

4S 

;8R IF NOT 

026442 

005204 





INC 

R4 


026444 

000755 





BR 

IS 


026446 

012737 

075333 

031200 

3S: 


MOV 

fUNTNOT.ASNMSG 

.‘ADDR OF ’NOT ASSIGNED* MESSAGE 

026454 

004737 

031154 




JSR 

PC.ASNERR 

.-REPORT IT 

026460 

000766 





BR 

2S 


026462 

000207 



4$: 


RTS 

PC 






;*$• 

COMMAND 

(ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 

026464 




SCMND 

: 




026464 

013746 

001542 




MOV 

ASNLST.-(SP) 

.-.-PUSH ASNIST ON STACK 

026470 

122715 

000101 




CMP8 

f'A.(R5> 

.-ALL STATISTICS ? 

026474 

0C1416 





BEO 

2S 

;BR IF YES 

026476 

111504 





M0V8 

(R5).R4 

;GET DRIVE NUMBER 

026500 

136416 

040300 




BITB 

ATABI T(R4).(SP) 

;IS THIS DRIVE ASSIGNED ? 

026504 

001404 





BEO 

IS 

;BR IF NO 

026506 

116437 

040300 

001542 



MOVB 

ATABI T(R4),ASNIST ;GET DRIVE ASSIGN BIT 

026514 

000411 





BR 

3S 


026516 

012737 

075333 

031200 

IS: 


MOV 

fUNTNOT.ASNMSG 

.‘ADDR OF 'NOT ASSIGNED' MSG 

026524 

004737 

031154 




JSR 

PC.ASNERR 

.-TYPE ERROR MESSAGE 

026530 

000407 





BR 

4S 

.-EXIT 

026532 

105737 

001542 


21: 


TSTB 

ASNLST 

.-ANY DRIVE ASSIGNED ? 

026536 

001404 





BEO 

4S 

;8R IF NO 

026540 

004737 

023626 


3S: 


JSR 

PC.STATPR 

.-TYPE AIL STATISTICS 

026544 

104401 

075617 




TYPE 

. STARS 

.-TYPE '****. ..ETC' 

026550 




4S: 





026550 

012637 

001542 




MOV 

(SP)*.ASNLST 

;;POP STACK INTO ASNLST 

026554 

000207 





RTS 

PC 






;'T* 

COMMAND 

(ROUTINE TO TEST A 

DRIVE) 

026556 

005037 

001320 


NEWASN: 

CLR 

PACK 

;SET 'T* COMMAND INDICATOR 

026562 

000137 

025666 




JMP 

ASSIGN 

;G0 TO THE ASSIGN ROUTINE 





;'R' 

COMMAND 

(ROUTINE TO READ A 

DATA PACK) 

026566 

012737 

000001 

001320 

REDAPK: 

MOV 

f 1 .PACK 

;SET THE 'READ' INDICATOR 

026574 

000137 

025666 




JMP 

ASSIGN 

.-ASSIGN THE REQUESTED DRIVE 


SEQ 0126 


K 10 


SEO 0127 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 28-1 
GENERAL SUPPORT SUBROUTINES 


;’W COMMAND (ROUTINE TO WRITE A DATA PACK) 


59 026600 012737 177777 001320 DATAPK: MOV 

60 026606 000137 025666 JMP 

6 1 — * • ~ - 


#-1 .PACK 
ASSIGN 


;SET THE 'W* COMMAND INDICATOR 
; ASSIGN REQUESTED DRIVE 


; • WT ' COMMAND (TO WRITE A PACK AND TEST A DRIVE) 


64 026612 116515 000001 

65 026616 012737 177776 001320 

66 026624 000137 025666 


WATPAK: MOVB 
MOV 
JMP 


1(R5),(R5) 

#-2.PACK 

ASSIGN 


ADJUST DRIVE NUMBER ADDRESS 
PACK WRITE COMMAND 
JUMP TO ASSIGN ROUTINE 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 29 
GENERAL SUPPORT SUBROUTINES 


L 10 


SEQ 0128 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 026630 
026630 
026632 
026634 
026636 

11 026640 

12 026644 

13 026646 

14 026650 

15 026654 

16 026660 

17 026662 

18 026666 

19 026670 

20 026674 

21 026700 

22 026702 

23 026706 

24 026710 

25 

27 026714 

31 026720 

32 026726 

33 026730 

34 026734 

35 026736 

36 026744 

37 026750 

38 026756 

39 026764 

40 026770 

41 026776 

42 027004 

43 027010 

44 027016 

45 027024 

46 027032 

47 027034 

48 027042 
027042 
027044 
027046 
027050 

49 027052 

50 

51 

52 

53 


010146 

010346 

010446 

010546 

005737 

001076 

010004 

062704 

012703 

005024 

162703 

001374 

062704 

012703 

005024 

162703 

001374 

062704 

012703 

012764 

005024 

162703 

001374 

113760 

013701 

116160 

113760 

106360 

013760 

013760 

005460 

012760 

012760 

132760 

001403 

062760 

012605 

012604 

012603 

012601 

000207 


ROUTINE TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 
CALL: 

MOV f DP8.R0 ;DP8 ADDRESS 

JSR PC.CLRDPB 

RETURN 

RO - DPB ADDRESS BEFORE CALLING THE ROUTINE 


CLRDPB: 


037716 


000002 

000012 

000002 

000002 

000106 

000002 

002004 

000064 

177777 

000002 

001514 

001514 

0C2076 

001512 

000030 

001516 

001516 

000004 

000400 


177776 


000024 

000002 

000030 

00002C 

000004 

000022 

000104 

000024 


000002 000022 


MOV 

MOV 

CLR 

SUB 

BNE 

MOVB 

MOV 

MOVB 

MOVB 

ASL8 

NOV 

MOV 

NEG 

MOV 

NOV 

BITS 

BEQ 

ADD 


RI.-(SP) 

R3.-(SP> 

R4.-ISP) 

R5.-(SP> 

PWRFLG 

4$ 

R0.R4 

P2.R4 

*<$CVL-SC0MND>*2 

<R4M 

»2. R3 

IS 

P2.R4 


;°USH R1 ON STACK 
.’PUSH R3 ON STACK 
.‘PUSH R4 ON STACK 
;P USH R5 ON STACK 
RETURNING FROM POWER FAIL ? 

BRANCH IF YES 

GET THE DPB ADDRESS 

ADDRESS OF FIRST LOCN TO BE CLEARED 

R3 .‘NUMBER OF LOCNS TO BE CLEARED 

CLEAR THE LOCATION 

DONE CLEARING YET ? 

BR IF NO 

SKIP OVER THE 'SREG' LOCATION 


»» I. 4 r vvkn mk Luvniiun 

«<SNEXT-STATUS>+2.R3 .-NUMBER OF LOCNS TO BE CLEARED 


(R4) + 
P2.R3 

2 $ 


CLEAR THE LOCATION 
DONE CLEARING YET ? 
BR IF NO 


#<$DRVSN-$F IRST>.R4 .SKIP OVER FIRST FLAG. MIN/MAX ADRS 

.‘LIMITS AND BAD SECTOR TABLE 
«<$RMCS3-SDRVSN>+2.R3 .‘NUMBER OF LOCNS TO BE CLEARED 
P-1.-2CR4) .‘INITIALIZE TERMINATOR FOR BAD SECTOR TABLE 
<R4>* .‘CLEAR A LOCATION 

#2.R3 .-DONE CLEARING YET ? 

3S ‘BR IF NO 

BEGCOD.SCODE(RO)' .‘INITIAL COMMAND CODE 

BEGC0D.R1 ;GET THE ACTUAL OP CODE 

COMTBL (R1 ) .SCOMND (RO) .OPERATION CODE 

BEGPAT.SPATTC(RO) .‘PATTERN CODE 


SPATTC(RO) 

BEGUC.SWRDLCROI 

BfGWC.SWCNT(RO) 

SWCNT (RO) 

#256..SSSEC(R0) 

#1.$PASSC(R0) 

fl.SCODE(RO) 

41 

#2.$SSEC(R0) 

(SP)+. R5 
(SP)*.R4 
(SP)+ ,R3 
lSP) + ,R1 
PC 


CONVERT CODE TO A TABLE INDEX 
BEGINNING WORD COUNT 
VALUE FOR DATA TRANSFER 
MAKE IT INTO 2*S COMPLEMENT 
INITIAL VALUE OF SECTOR SIZE 
PRESET PASS COUNT TO 1 
HEADER COMMAND ? 

Qpt If NQJ 

ADD HEADER SIZE TO SECTOR SIZE 

.-POP STACK INTO R5 
.-POP STACK INTO R4 
.POP STACK INTO R3 
;POP STACK INTO R1 
RETURN 


ROUTINE TO GET ADDRESS LIMITS FROM THE OPERATOR 
CALL: 

MOV PDP8.R0 ;DPB ADDRESS 



CZRNAAO RM80 PERF EXER 

MACRO V04.00 14- JAN-82 

15:16:58 

M 10 
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SEQ 0129 

GENERAL SUPPORT 

SUBROUTINES 






54 

55 

56 

57 

58 027054 




; 

JSR 

PC.DRVPRM ; 

CALL ROUTINE 





;R0 = 

DPS ADDRESS BEFORE CALLING 

THE ROUTINE 


010346 



JRVPRM: MOV 

R3.-(SP) 

SAVE R3 


59 027056 

010446 




MOV 

R4,-(SP) 

SAVE R4 


60 027060 

105737 

001150 



TSTB 

SAUTOB 

RUNNING IN AUTO MODE ? 


61 027064 

001010 




BNE 

IS 

BR IF YES 


62 027066 

005737 

001336 



TST 

CHGADR 

PROGRAM STARTED AT 200 ? 


63 027072 

003005 




BGT 

IS 

BR IF YES 


64 027074 

005737 

001442 



TST 

DRVPAR 

CHANGE DRIVE PARAMETERS ? 


65 027100 

001002 




BNE 

IS 

BR IF NO 


66 027102 

67 

68 027106 

104401 

076252 



TYPE 

.ENTLMT 

•ENTER ADDRESS LIMITS' 


004737 

027462 


1$: 

JSR 

PC.GETLMT 

GET ADDRESS LIMITS 


69 027112 

062760 

177777 

000124 


ADD 

#-1,SFIRST(R0) 

SEE IF FIRST TINE STARTED 


70 027120 

103426 




BCS 

4S 

BR IF NOT 


71 027122 

013760 

001422 

000126 


MOV 

C YLIMT .MAXCYL (RO, 

.’LOAD MAXIMUM CYLINDER 


72 027130 

013760 

001426 

000132 


MOV 

TRKLMT, MAXTRK (RO. 

.’LOAD MAXIMUM TRACK 


73 027136 

013760 

001424 

000136 


MOV 

SECLMT .MAXSEC (RO. 

;LOAD MAXIMUM SECTOR 


74 027144 

005737 

001434 



TST 

FEFLAG 

USING FE CYLINDERS ONLY ? 


75 027150 

001004 




BNE 

2S 

BR IF NO 


76 027152 

013760 

001430 

000130 


MOV 

FE1 ,MINCYL(RO) 

; RESET MINIMUM CYLINDER ADDRESS 


77 027160 

000402 




BR 

3S 



78 027162 

005060 

000130 


2$: 

CLR 

MINCYL(RO) 

CLEAR NIN1MM CYLINDER 


79 027166 

005060 

000134 


3$: 

CLR 

MINTRK(RO) 

CLEAR MINIMUM TRACK 


80 027172 

81 

005060 

000140 



CLR 

MINSEC(RO) 

CLEAR MINIMUM SECTOR 

! 

82 027176 

105737 

001150 


4$: 

TSTB 

SAUTOB 

RUNNING IN AUTO MODE ? 


83 027202 

001113 




BNE 

9S 

BR IF YES 

1 

84 027204 

005737 

001336 



TST 

CHGADR 

PROGRAM STARTED AT 200 ? 


85 027210 

003110 




BGT 

9S 

BR IF YES 

1 

86 027212 

005737 

001442 



TST 

DRVPAR 

CHANGE DRIVE PARAMETERS ? 

j 

87 027216 

001105 




BNE 

9S 

BR IF NO 


88 027220 

016403 

100042 



MOV 

TABLE (R4),R3 
CYLIMT.2<R3) 

PARAMETER TABLE ADDRESS 


89 027224 

013763 

001422 

000002 


MOV 

LOAD CYLINDER LIMIT FOR M1NCYL 


90 027232 

013763 

001422 

000010 


NOV 

CYLIMT,10(R3> 

LOAD CYLINDER LIMIT FOR MAXCYL 


91 027240 

013763 

001426 

000016 


NOV 

TRKLMT, 16(R3> 

LOAD TRACK LIMIT FOR NINTRK 


92 027246 

013763 

001426 

000024 


NOV 

TRKLMT, 24 <R3> 

LOAD TRACK LIMIT FOR MAXTRK 


93 027254 

013763 

001424 

000032 


NOV 

SECLMT,32(R3) 

LOAD SECTOR LIMIT FOR M1NSEC 


94 027262 

013763 

001424 

000040 


NOV 

SECLMT,40(R3) 

PC, PARENT 

LOAD SECTOR LIMIT FOR MAXSEC 


95 027270 

96 

97 027274 

004737 

031030 



JSR 

GET THE DRIVE'S PARAMETERS 


016003 

000130 



NOV 

NINCYL(R0),R3 

STORE MINCYL VALUE 


98 027300 

016004 

000126 



MOV 

MAXCYL(RO) ,R4 

STORE MAXCYL VALUE 


99 027304 

020304 




CMP 

R3,R4 

IS MIN. LESS THAN OR EQUAL TO MAX. ? 


100 027306 

003404 




BLE 

5S 

BR IF YES 


101 027310 

010360 

000126 



MOV 

R3,NAXCYL(R0) 

SWAP MIN. TO MAX. 


102 027314 

010460 

000130 



NOV 

R4,NINCYL(R0) 

SWAP MAX. TO MIN, 


103 027320 

016003 

000134 


5$: 

NOV 

MINTRK(RO) ,R3 

STORE MINT(«K VALUE 


104 027324 

016004 

000132 



NOV 

MAXTRK (RO) ,R4 

STORE MAXTRK VALUE 


105 027330 

020304 




CMP 

R3,R4 

IS MIN. LESS THAN OR EQUAL TO MAX. ? 


106 027332 

003404 




BLE 

6$ 

BR IF YES 


107 027334 

010360 

000132 



NOV 

R3, MAXTRK (RO) 

SUAP MIN. TO MAX. 


108 027340 

010460 

000134 



NOV 

R4,MINTRK(R0) 

SWAP MAX. TO MIN. 


109 027344 

016003 

000.40 


6$: 

NOV 

MINSEC(RO) ,R3 

STORE MI NSEC VALUE 


110 027350 

016004 

000136 



NOV 

MAXSEC (R0),R4 

STORE MAXSEC VALUE 

i 

L 


N 10 
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SEQ 0130 


115 


124 


130 

131 

132 

133 

134 

135 

136 


141 


027354 

02C304 




CMP 

027356 

003404 




BLE 

027360 

010360 

000136 



MOV 

027364 

010460 

000140 



MOV 

027370 

005737 

001434 


7$: 

TST 

027374 

001016 




BNE 

027376 

026037 

000130 

001430 


CMP 

027404 

103003 




BHIS 

027406 

013760 

001430 

000130 


MOV 

027414 

026037 

000126 

001430 

8$: 

CMP 

027422 

103003 




BHIS 

027424 

013760 

001432 

000126 


MOV 

027432 

016060 

000130 

000012 

9S : 

MOV 

027440 

116060 

000134 

000011 


MOVB 

027446 

116060 

000140 

000010 


MOVB 

027454 

012604 




MOV 

027456 

012603 




MOV 

027460 

000207 




RTS 


R3.R4 

7$ 

R3,MAXSEC(R0) 

R4,MINSEC(R0) 

FEFLAG 

9$ 

MINCYL(RO) ,FE1 

8 $ 

FEI.MINCYL(RO) 
MAXCYL (RO) ,FE1 

9$ 

FE2.MAXCYL<R0) 


IS MIN. LESS THAN OR EQUAL TO MAX. ? 

BR IF YES 

SWAP MIN. TO MAX. 

SWAP MAX. TO MIN. 

USING FE CYLINDERS ONLY ? 

BR IF NO 

IS MIN. CYLINDER < 1ST FE fYUNDER ? 
BR IF NO 

YES. RESET MIN. CYLINDER 

IS MAX. CYLINDER < 1ST FE CYLINDER ? 

BR IF NO 

YES. RESET MAX. CYLINDER 


MINCYL(RO) ,$CYL(RO) .-INITIAL CYLINDER VALUE 

MINTRK(RO) ,$TRK(RO) .-INITIAL TRACK VALUE 

MINSEC (RO) .$SEC (RO) .-INITIAL SECTOR VALUE 

CSPM. R4 .-.POP STACK INTO R4 

(SP) *,R3 ;;POP STACK INTO R3 

PC .-RETURN 

ROUTINE TO GET THE ADDRESS LIMITS FOR THE CURRENT DRIVE TYPE 
CALL - 

JSR PC.GETLMT .'CALL ROUTINE 

RO - DPB ADDRESS BEFORE CALLING THE ROUTINE 


027462 

005737 

001434 


GETLMT : 

TST 

027466 

001004 




BNE 

027470 

013737 

001432 

001422 


MOV 

027476 

000403 




BR 

02750U 

012737 

001056 

001422 

IS: 

MOV 

027506 

012737 

000015 

001426 

2$: 

MOV 

027514 

012737 

000036 

001424 


MOV 

027522 

032760 

001000 

002172 


BIT 

027530 

001003 




BNE 

027532 

005760 

000112 



TST 

027536 

001403 




BEQ 

027540 

012737 

000037 

001424 

3$: 

MOV 

027546 

000207 



4$: 

RTS 


FEFLAG 

1 $ 

FE2.CYLIMT 

2 $ 

#558. .CYLIMT 
#13. .TRKLMT 
#30.,SECLMT 
#SSEI .SRMOF (RO) 
3$ 

ISSENB(RO) 

4$ 

#31 . .SECLMT 
PC 


USING FE CLYINDERS ONLY 
BR IF NO 

GET 2ND FE CYLINDER 


;GET LAST CYLINDER 

.-GET LAST TRACK FOR AN RM80 

.-GET LAST SECTOR 

;IS SKIP SECTOR INHIBIT SET ? 

* JF 

•WAS SKIP SECTORING ENABLED DURING XFER ? 

;BR IF NO 

.-GET LAST SECTOR 

.-RETURN 
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B 11 


SEO 0131 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 027550 
027550 
027552 
027554 
027556 

11 027560 

12 027562 

13 027566 

14 027572 

15 027576 

16 027600 

17 027602 

18 027604 

19 027606 

20 027610 

21 027612 

22 027614 

23 027616 

24 027620 

25 027624 

26 027630 

27 027632 

28 027634 

29 027636 
027640 
027642 
027644 

30 027646 


ROUTINE TO GET THE DRIVE (MBO SERIAL NUMBER FROM RMSN REGISTER 
THIS NUMBERS CONTAINED IN THt KEoISTER ARE ONLY THE 4 LSD’S OF THE 
SERIAL NUMBER. 

CALL : 

MOV #DPB,RO 

JSR PC.GETID 


; DFB ADDRESS 
; CALL ROUTINE 


RO = 0P8 ADDRESS BEFORE CALLING THE ROUTINE 


010046 

010146 

010246 

010546 

010002 

004737 

012702 

016001 

005005 

006101 

006105 

006101 

006105 

006101 

006105 

006101 

006105 

062705 

110560 

005200 

005302 

003360 

012605 

012602 

012601 

012600 

000207 


GETID: 


045062 

000004 

002170 


1 $: 


000060 

002130 


MOV RO.-(SP) 

MOV R1 ,-(SP) 

MOV R2.-(SP) 

MOV R5,-(SP) 

MOV R0.R2 

JSR PC.SVRH70 

MOV #4,R2 

MOV SRMSN(RO) ,R1 

CLR R5 

ROL R1 

ROL R5 

ROL R1 

ROL R5 

ROL 31 

ROL R5 

ROL R1 

ROL R5 

ADD #'0,R5 

MOVB R5,$DRV5N(R0) 

INC RO 

DEC R2 

BGT 1$ 

MOV (SP)*,R5 

MOV (SP)*,R2 

MOV (5P)+.R1 

MOV (SP)*.RO 

RTS PC 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R5 ON STACK 
GET INDEX TO DPB 
SAVE ALL REGISTERS 
FOUR DiGITS TO STORE 
SERIAL NUMBER 
ZERO 

PUT THE NEXT PIGIT 
INTO R5 


MAKE IT ASCII 

SAVE DRIVE (MBA) SERIAL NUMBER DIGIT 

GET NEXT INDEX FOR DRIVE (MBA) SERIAL NUMBER 

ALL DI6ITS TYPED? 

NO — BRANCH 
POP STACK INTO R5 
POP STACK INTO R2 
POP STACK INTO R1 
.POP STACK INTO RO 
RETURN 
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READ D6C144 FILE 


C 11 


SEO 0132 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 027650 
027650 
027652 
027654 

34 027656 

35 027662 

36 027664 

37 027670 

38 027672 

39 027676 

40 027704 

41 027712 

42 027720 

43 027726 

44 027734 

45 027742 

46 027746 

47 027752 

48 027754 

49 027756 

50 027762 

51 027764 

52 027766 

53 027774 

54 030002 


010146 

010246 

010346 

004737 

010001 

062701 

010146 

111037 

012737 

113737 

112737 

012737 

112737 

012737 

012703 

004037 

067556 

000772 

005737 

001775 

100010 

062737 

123737 

103357 


027462 

000146 

067556 

001056 

001426 

000000 

177400 

000171 

000010 

101174 

041000 


067574 


000002 

001270 


, S8TTL READ DEC144 FILE 

THIS ROUTINE IS USED TO READ THE DEC144 BAD SECTOR FILE FROM CYLINDER 
558. TRACK 13. AND TO STORE THE FILE IN IT’S RESPECTIVE DPB TABLE. 

THE DPB TABLE HAS ENOUGH ROOM TO SAVE THE ENTIRE MFG AND USR PORTIONS 
OF THE DEC144 FIIE, (MFG=126. ENTRIES AND USR=l26. ENTRIES) EVERY TIME 
;HE DRIVE IS ASSIGNNED THE DEC144 FILE IS READ TO DETERMINE THE STATUS 
OF THE CURRENT HDA SERIAL NUMBER. BUT, IN ORDER TO INITIALIZE THE 
BAD SECTOR ENTRY 1ABLE , AT LEAST ONE OF FOLLOWING STATEMENTS MUST BE VALID. 


1) 


OR 


FIRST TIME PROGRAM WAS STARTED 


2) LOCATION ’BADBLK’ IS EQUAL TO 1 
OR 

3) LOCATION 'BADBL K 1 IS EQUAL TO 0 AND THE HDA 
SERIAL NUMBER CHANGED SINCE THE LAST TIME IT WAS 
READ. (DEFAULT) 

NOTE: IF THE SERIAL NUMBER HAS CHANGED, THIS MOST LIKELY MEANS THAT THE 
HDA OR DRIVE HAD BEEN REPLACED WHILE THE DRIVE WAS DEASSIGNED. 

THIS ROUTINE CHECKS THAT THE TWO SERIAL NUMBER WORDS ARE NOT 2ER0 
AND THE ENTIRE SERIAL NUMBER IS POSITIVE. ALSO, WORDS 3 AND 4 ARE 
CHECKED TO BE ALL ZERO WORDS. IF THE DEC144 FILE DOES NOT COMPLY 
WITH THIS STUCTURE, AN ERROR MESSAGE IS TYPED AND THE ROUTINE IS EXITED. 


CALL 


MOV fDPB.RO ;DP8 ADDRESS 

JSR R5,GE TADR ;READ DEC144 BAD SECTOR FILES 


RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


GETADR: 


067570 

067567 

067566 

067562 

067560 

001270 


1 $: 


2 $: 


067566 

067566 


MOV 

MOV 

MOV 

JSR 

MOV 

APD 

MOV 

M0V8 

MOV 

M0V8 

M0V8 

MOV 

M0V8 

MOV 

MOV 

JSR 

GENDP6 

BR 

TST 

BEQ 

BPL 

ADD 

CMP8 

BHIS 


Rl.-(SP) 

R2,-(SP> 

R3,-(SP> 

PC.6ETIMT 
R0-R1 

#S6DSEC,R1 
R1--CSPS 
<r6>,genopb 

#558.,GENDP8*SCVL 
TRKLMT.GENDPS^TRK 

ftrti£s&«t8r 

»**256. , 6tNDPB»»WCN I 
#RDDAT,GENDPBtSCOMND 
#8. ,$CDW2 ;6ET 

#CYLNDR,R3 ;GET 

R0.RM80 .READ 


STACK 

STACK 

STACK 

LIMITS 


,'PUSH R1 ON 
.'PUSH R2 ON 
.PUSH R3 ON 
GET ADDRESS 
DPB ADDRESS 
ADDRESS OF BAD SECTOR TABLE 
.PUSH R1 ON STACK 
DRIVE NUMBER 

.'LAST CYLINDER 
;6£T LAST TRACK 

STARTING SECTOR OF 16 BIT MFG FILE 
.'ONE SECTOR WORD COUNT 
:READ DATA COMMAND 
LASt SECTOR OF 16 BIT MFG FILE 
READ BUFFER ADDRESS 
CURRENT SECTOR 


1 $ 

6ENDPB+STATUS 

2$ 

3$ 

#2.GENDPB+SSEC 


$CDW2,GENDP8+$SEC ; 

1$ ;BR IF NO 


.-WAIT FOR OUE 
.‘READ DONE YET ? 

;BR IF NO 

;BR IF NO ERROR. ELSE 
.‘INCREMENT NEXT SECTOR TO READ 


WERE ALL SECTORS TRIED ? 


CZRNA40 RM80 PERF EXER 
READ DEC144 FILE 
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D 11 


SEC 0133 


55 030004 

000470 




BR 

10$ ;l 

56 030006 

005723 



3$: 

TST 

(R3)* 

5/ 030010 

005723 




TST 

(R3)* 

58 030012 

100462 




BMI 

9$ 

59 030014 

001003 




BNE 

4$ ; 

60 030016 

005763 

177774 



TST 

-4(R3) 

61 030022 

001456 




BEQ 

9$ 

62 030024 

005723 



4$: 

TST 

(R3)* 

63 030026 

001054 




BNE 

9$ 

64 030030 

005723 




TST 

(R3)* 

65 030032 

001052 




BNE 

9$ 

66 030034 

123727 

067566 

00001? 


CMPB 

GENDPB*$SEC,#10. 

67 030042 

103021 




BHIS 

6$ . 

68 030044 

005737 

001510 



TST 

BADBLK 

69 030050 

001010 




BNE 

5$ : 

70 030052 

026360 

177770 

000142 


CMP 

-10(R3),$HSNL(R0) 

71 030060 

001004 




BNE 

5$ 

72 030062 

026360 

177772 

000144 


CMP 

— 6 (R3) ,$HSNM(RO) 

73 030070 

001464 




BEQ 

13$ , i 

74 030072 

016360 

177770 

000142 

5$: 

MOV 

-10(R3).$HSNL(R0J 

75 030100 

016360 

177772 

000144 


MOV 

-6(R3) ,*HSNN(RO) 

76 

77 030106 

012702 

000176 


6$: 

MOV 

#126.. R2 

78 030112 

012321 



7$: 

MOV 

(R3)*.(R1)+ 

79 030114 

012321 




MOV 

(R3> ♦ . <R * > •♦• 

80 030116 

005302 




DEC 

R2 

81 030120 

001374 




BNE 

7$ 

82 030122 

123727 

067566 

000012 


CMPB 

GENDP8*$SEC»#10. 

83 030130 

103044 




BHIS 

13$ 

84 030132 

112737 

000012 

067566 


NOVB 

#10..GENDPB*$SEC 

85 030140 

012737 

000036 

001270 


NOV 

#30. ,$CDW2 

86 030146 

011601 




MOV 

(SP). R1 

87 030150 

005721 



8$: 

TST 

(RD* 

88 030152 

100376 




BPL 

8$ 

89 030154 

005741 




TST 

-(R1> 

90 030156 

000671 




BR 

1$ 

91 

92 030160 

104401 

076442 


9$: 

TYPE 

.MERR2 

93 030164 

000402 




BR 

11$ 

94 030166 

104401 

076362 


10$: 

TYPE 

.NERR1 

95 030172 

104401 

075304 


11$: 

TYPE 

.UNTMSG 

96 030176 

011046 




MOV 

(RO).-(SP) 


104403 




TYPOS 


030202 

002 




.BYTE 

2 

030203 

000 




.BYTE 

0 

97 030204 

104401 

001203 



TYPE 

.$CRLF 

98 030210 

012601 




MOV 

(SP)*. R1 

99 030212 

012702 

000374 



MOV 

#252.. R2 

100 030216 

012721 

177777 


12$: 

NOV 

#-1,(R1)* 

101 030222 

012721 

177777 



MOV 

#-1.(R1>* 

102 030226 

905302 




DEC 

R2 

103 030230 

001372 




BNE 

12$ 

104 030232 

012760 

177777 

000144 


MOV 

#-1.$HSNH(R0) 

105 030240 

000401 




BR 

14$ 

106 030242 

005726 



13$: 

TST 

(SP)* 

107 030244 




14$: 



030244 

012603 




MOV 

(SP)+.R3 


IF YES (CORRUPT) 
>RD WORD ALL O'S 


: READING USR BAD FILE ? 


8R IF YES 

;ARE LSB'S OF S/N SAME AS BEFORE 
;BR IF NO 

;A RE MSB'S OF S/N SAME AS BEFORE 
SR IF YES 

; STORE HDA SERIAL NUMBER 


NUMBER OF ENTRIES PER FILE (MFG/USR) 
STORE BAD CYLINDER ADDRESS 
STORE BAD TRK/SEC ADDRESS 
DONE WITH ENTRJcS ? 

BR IF NO 

;USR BA'; FILE DONE VET ? 

BR IF YES 

•GET S1ARTING SFCTOR OF USR FILE 
GET LASt SECTOR OF US'; FILE 
GET BEGINNING OF SBTiEC TABLE 
IS THIS TERMINATOR ? 

BR IF NO 

FOUND TERMINATOR, BACKUP 1 WORD 


REPORT, INVALID DECH4 FILE STRUCTURE 

REPORT, FAILED TO RETRIEVE DEC144 FILES 
TYPE 'ON DRIVE' 

.SAVE (RO) FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
.-TYPE 2 DIGIT(S) 

.SUPPRESS LEADING ZEROS 
CR-LF 

;POP STACK INTO R1 
tOTAL NUMBER OF ENTRIES ALLOWED 
INITIALIZE CYLINDER LOCATIONS TO -1 
INITIALIZE TRK/SEC LOCATIONS TO -1 
DONE YE1 ? 

BR IF NO 

INDICATE SERIAL NUMBER IS UNKNOWN 

RESTORE STACK 

;P0 P STACK INTO R3 
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030246 
030250 
108 030252 


012602 

012601 

000205 


MOV 

MOV 

RTS 


<SP)*. R2 
(|P)*,R1 


E 11 


; ; POP STACK INTO R2 
; ; POP STACK INTO R1 
;§XIT 



SEQ 0 1 35 
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F 11 


1 

2 

3 

A 

5 

6 
7 


.S8TTL ENTER BAD SECTOR ROUTINE 

ROUTINE TO ENTER BAD SECTOR INFORMATION MANUAL IV 
CALL : 

MOV #DP8,RO ;DP8 ADDRESS 

JSR PC.MANTER ; CALL ROUTINE 

RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


10 030254 



MANTER: 



030254 

010146 



MOV 

R1 ,-(SP) 

030256 

010246 



MOV 

R2,-(SP) 

030260 

010346 



MOV 

R3. -<SP> 

030262 

010446 



MOV 

R4,-(SP) 

11 030264 

105737 

001150 


TSTB 

SAUT08 

12 030270 

001162 



BNE 

19S 

13 030272 

005737 

001442 


1ST 

DRVPAR 

14 030276 

001157 



BNE 

19S 

lUik'K'!'! 

005037 

001340 

IS: 

CLR 

CFLAG 

16 030304 

104401 

076302 


TYPE 

.ENTADR 

^ y 

18 030310 

012704 

000146 


MOV 

PSBDSEC ,R4 

19 030314 

060004 



ADD 

R0.R4 

20 030316 

012701 

000374 


MOV 

#<126.*2>,R1 

21 030322 

022714 

177777 

2$: 

CMP 

#-1 , (R4) 

22 030326 

001407 



SEO 

3$ 

23 030330 

062704 

000004 


ADD 

P4.R4 

24 030334 

005301 



DEC 

R1 

25 030336 

001371 



BNE 

PS 

26 030340 

104401 

076506 


TYPE 

.NSfULL 

27 030344 

000534 



BR 

19$ 

28 

29 030346 

010146 


3S: 

MOV 

RI.-(SP) 

30 030350 

010446 



MOV 

R4.-CSP) 

31 030352 

012714 

177777 

4$: 

MOV 

f-1,(R4) 

32 030356 

012764 

177777 

000002 

MOV 

#-1.2(R4> 

33 030364 

104401 

076544 


TYPE 

.MSGCTS 

34 030370 

104411 



RDLIN 


35 030372 

012601 



MOV 

<SP)+, R1 

36 030374 

005737 

001340 


TST 

CFLAG 

37 030400 

001011 



BNE 

5$ 


105761 

000001 


TSTB 

1(R1) 

39 03C406 

001021 



BNE 

7$ 

40 030410 

122711 

000114 


CMPB 

f’L.(RI) 

41 030414 

001016 



BNE 

7 $ 

42 030416 

004737 

030650 


JSR 

PC,TYLIST 

43 030422 

000753 



BR 

4$ 

44 030424 

012604 


5S: 

NOV 

<SP>*,R4 

45 030426 

012601 



MOV 

<SP>*,R1 

46 030430 

012724 

177777 

6$: 

MOV 

#-1,(R4>* 

47 030434 

012724 

177777 


MOV 

#-1 ,(R4)* 

48 030440 

005301 



DEC 

R1 

49 030442 

001372 



BNE 

6$ 

50 030444 

104401 

077262 


TYPE 

.ALOST 

51 030450 

000713 



BR 

IS 

52 






53 030452 



7$: 




PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
.PUSH RA ON STACK 

Running in auto mode ? 

BRANCH IF SO 

CHANGE DRIVE PARAMETERS ? 

BR IF NO 

CLEAR THE CONTROL-C FLAG 
MESSAGE TO ENTER... 

INDEX VALUE OF TABLE ADDRESS 
TABLE STARTING ADDRESS 
256. TOTAL BAD SECTORS ALLOWED 
ENTRY IN THE TABLE ? 

BRANCH IF SO 

ADJUST THE TABLE ENTRY POINTER 
DECREMENT THE BAD SECTOR COUNT 
BR IF TO NEXT ENTRIES POSITION 
TYPE ’BAD SECTOR TABLE IS FULL’ 

EXIT.. 

SAVE THE COUNTER AND FIRST 
ENTRY POINTER PAIR 
RESET CYLINDER TO -1 
RESET TRACK/SECTOR FIELD TO -1 
TYPE 'CYL,TRK i SEC = * 

READ THE ADDRESS 
READ IN TEXT ADDRESS 
CONTROL-C ENTERED ? 

BRANCH IF YES 

WAS IT TERMINATED WITH CARRIAGE RETURN ? 
BR IF NO 

WAS CHARACTER AN *L' ? 

BR IF NO 

TYPE BAD SECTOR LIST FOR USER 

RETRIEVE THE ENTRY POINTER 
RETRIEVE THE COUNT 
RESET THE TABLE 
TO -1 

ALL DONE ? 

BRANCH IF NOT 

TYPE ’ * ALL CURRENT ENTRIES LOST »' 
ENTER AGAIN FROM THE FIRST POINTER 
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G 


030452 

013702 

001422 


MOV 

CYLIMT.R2 

030456 

004537 

033072 


JSR 

R5-CK.DIG 

030462 

0306 7 2 



18$ 


030464 

030632 



18$ 


030466 

030624 



17$ 


030470 

030476 



8$ 


030472 

030506 



10$ 


030474 

030502 



9$ 


54 030476 

010214 


8$: 

MOV 

R2-(R4) 

55 030500 

000444 



BR 

16* 

56 030502 

010214 


9$: 

MOV 

R2.(R4) 

57 030504 

000452 



BR 

18* 

58 030506 

010214 


10$: 

MOV 

R2.(R4) 

59 






60 030510 

013702 

001426 


MOV 

TRKLMT.R2 

030514 

004537 

033072 


JSR 

R5.CK.DIG 

030520 

030632 



18$ 


030522 

030632 



18$ 


030524 

030624 



17$ 


030526 

030534 



11$ 


030530 

030550 



13$ 


030532 

030542 



12$ 


61 030534 

110264 

000003 

11$: 

MOVB 

R2.3(R4) 

62 030540 

000424 



BR 

16* 

63 0305«*2 

110264 

000003 

12$: 

MOVB 

R2.3(R4) 

64 030546 

000431 



BR 

18* 

65 030550 

110264 

000003 

13$: 

MOVB 

R2,3(R4) 

66 






67 030554 

013702 

001424 


MOV 

SECLMT.R2 

030560 

004537 

033072 


JSR 

R5-CK.DIG 

030564 

030632 



18$ 


030566 

030632 



18$ 


030570 

030624 



17$ 


030572 




15$ 


030574 

030624 



17$ 


030576 




14$ 


68 030600 

110264 

000002 

14$: 

M0V8 

R2-2CR4) 

•VI'-vv;! 

000412 



BR 

18 * 


110264 

000002 

15$: 

MOVB 

R2,2(R4) 

71 






72 030612 

005303 


16$: 

DEC 

R3 

73 030614 

001406 



BEQ 

18$ 

74 030616 

062704 

000004 


ADD 

#4,R4 

75 030622 

000653 



BR 

4$ 

76 






77 030624 

104401 

076341 

17$: 

TYPE 

-8ADENT 

78 030630 

000650 



BR 

is 

79 030632 

062706 

000004 

18$: 

ADD 

A4.SP 

80 030636 



19$: 



030636 

012604 



MOV 

(SP) *,R4 


012603 



MOV 

(SP)*,R3 

030642 

012602 



MOV 

(SP)*,R2 

030644 

012601 



MOV 

(SP) ♦-Rl 

81 030646 

000207 



RTS 

PC 

82 






83 



.SBTTL 

TYPE 

BAD SECTOR LIST 

84 








SEQ 0136 


UPPER LIMIT OF INPUT 
CHECK THE DIGIT(S) 

CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 
ILLEGAL INPUT 

TERMINATED WITH A CARRIA6E RETURN 
TERMINATED WITH A "/* 

TERMINATED WITH A ’V 

CYLINDER ADDRESS 

FINISH WITH THE CURRENT ADDRESS 

CYLINDER ADDRESS 

EXIT,PERI0D ENTERED 

CYLINDER ADDRESS FOLLOWED BY * , 1 

UPPER LIMIT OF INPUT 
CHECK THE PIGIT(S) 

CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 
ILLEGAL INPUT 

TERMINATED WITH A CARRIAGE RETURN 
TERMINATED WITH A *V 
TERMINATED WITH A 'V 
TRACK ADDRESS 

TRACK NUMBER FOLLOWED BY CR 
TRACK ADDRESS 

EXIT, TRACK NUMBER FOLLOWED BY 
TRACK ADDRESS FOLLOWED BY V 


UPPER LIMIT OF INPUT 
CHECK THE DIGIT (S) 

CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 
ILLEGAL INPUT 

TERMINATED WITH A CARRIAGE RETURN 
TERMINATED WITH A 'V 
TERMINATED WITH A *V 
SECTOR ADDRESS 

EXIT-SECTOR ADDRESS FOLLOWED BY 
SECTOR ADDRESS 


MORE ENTRYS ? 

BRANCH IF EXHAUSTED 

ADJUST FOR THE NEXT TABLE ENTRY 

ENTER NEXT SECTOR ADDRESS 


MESSAGE BAD ENTRY 
ENTER SECTOR AODRESS AGAIN 
CLEAR OFF THE STACK POINT 


POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 


;PGP STACK INTO R1 
&XIT 


! 


SEQ 0137 
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TYPE BAD SECTOR LIST 


ROUTINE TO LIST BAD SECTORS ON THE TERMINAL IN DECIMAL NUMBERS 
FORMAT IS: CYL.TRK.SEC 
CALL : 

MOV fDPB.RO ;DPB ADDRESS 

JSR PC.TYLIST .-CALL ROUTINE 

RO = DPS ADDRESS BEFORE CALLING THE ROUTINE 


93 030650 



TYLIST: 



030650 

010146 



MOV 

Rl.-(SP) 

94 030652 

104401 

077216 


TYPE 

.LSTHDR 

95 030656 

012701 

000146 


MOV 

#$8DSEC,R1 

96 030662 

060001 



ADD 

R0.R1 

97 030664 

010146 



MOV 

Rl ,-(SP) 

98 030666 

022711 

177777 

IS: 

CMP 

*-1,<R1> 

99 030672 

001444 



BED 

6S 

100 030674 

011146 



MOV 

<R1),-(SP> 

101 030676 

004737 

033230 


jSR 

PC,SSB2D 

102 030702 

004737 

032264 


JSR 

PC.SUPRSL 

103 030706 

005046 



CLR 

-<SP> 

104 030710 

116116 

000003 


MOVB 

3<R1),<SP> 

105 030714 

100407 



BMI 

2S 

106 030716 

104401 

075276 


TYPE 

, COMMA 

107 030722 

W737 

033230 


JSR 

PC,$S82D 

108 030726 

004737 

032264 


JSR 

PC.SUPRSL 

109 030732 

000401 



BR 

3$ 

110 030734 

005726 


2$: 

TST 

<SP>* 

111 030736 

005046 


3$: 

CLR 

-<SP> 

112 030740 

116116 

000002 


MOVB 

2(R1),(SP) 

113 030744 

100407 



BMI 

4$ 

114 030746 

104401 

075276 


TYPE 

, COMMA 

115 030752 

004737 

033230 


JSR 

PC.SSB2D 

116 030756 

004737 

032264 


JSR 

PC.SUPRSL 

117 030762 

000401 



BR 

5$ 

118 030764 

005726 


4$: 

TST 

(SP)* 

119 030766 

104401 

001203 

5$: 

TYPE 

4CRLF 

120 030772 

062701 

000004 


ADD 

#4,R1 

121 030776 

005737 

001340 


TST 

CFLAG 

122 031002 

001731 



BEQ 

IS 

123 031004 

022601 


6$: 

CMP 

(SP) ♦.Rl 

124 031006 

001002 



BNE 

7$ 

125 031010 

104401 

077176 


TYPE 

.NOENTY 

126 031014 

104401 

001203 

7$: 

TYPE 

,$CRLF 

127 031020 

005037 

001340 


CLR 

CFLAG 

128 031024 

012601 



MOV 

(SP)*, Rl 

129 031026 

000207 



RTS 

PC 


;PUSH R1 ON STACK 

tYPE 'DEG144 AND MANUAL BAD SECTOR UST* 

INDEX VALUE OF TABLE ADDRESS 

TABLE STARTING ADDRESS 

SAVE ADDRESS FOR LATER 

TERMINATOR OR NO ENTRY IN THE TABLE * 

BRANCH IF YES 

GET CYLINDER NUMBER 

CONVERT NUMBER 

LEFT JUSTIFY AND TYPE 

CLEAR HI BYTE AND PUSH STACK 

GET TRACK NUMBER 

BR IF ALL BAD 

TYPE V 

CONVERT NUMBER 

LEFT JUSTIFY AND TYPE 

RESTORE STACK 

CLEAR HI BYTE AND PUSH STACK 

GET SECTOR NUMBER 

8R IF ALL BAD 

TYPE V 

CONVERT NUMBER 

LEFT JUSTIFY AND TYPE 

RESTORE STACK 
CR-LF 

INCREMENT POINTER 
CONTROL-C ENTERED ? 

BRANCH IF UO 
ANY ENTRIES ? 

DC fC YfS 

TYPE 'NO ENTRIES' 

CR-LF 

CLEAR CONTROL FLAG 
;POP STACK INTO R1 
RETURN 


I 11 
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PARAMETER ENTRY ROUTINE 

1 

2 

3 

4 

5 


6 

7 


8 

031030 

010346 


9 

031032 

005037 

001340 

10 

031036 

012337 

031046 

11 

031042 

001442 


12 

031044 

104401 


13 

031046 

OOOUOO 


14 

031050 

012302 


15 

031052 

012305 


16 

031054 

011546 


17 

031056 

104405 


18 

031060 

104401 

077572 

19 

031064 

104411 


20 

031066 

012601 


21 

031070 

005737 

001340 

22 

031074 

001021 


23 

031076 

004537 

033072 


031102 

031036 



031104 

031150 



031106 

031122 



031110 

031116 



031112 

031122 



031114 

031134 


24 

031116 

010215 


25 

031120 

000746 


26 

03112? 

104401 

076341 

27 

031126 

162703 

000006 

28 

031132 

000741 


29 

031134 

010215 


30 

031136 

000404 


31 

031140 

005037 

001340 

32 

031144 

011603 


33 

031146 

000733 


34 

031150 

005726 


35 

031152 

000207 



.SBTTL PARAMETER ENTRY ROUTINE 


PARAMETER ENTRY ROUTINE 
CALL: 


• 

0 

MOV 

AADR.R3 

• 

• 

JSR 

PC. PARENT 

PARENT: 

MOV 

R3,-(SP) 


CLR 

CFLAG „ 

1$: 

MOV 

(R3I+.3S 


BEQ 

TYPE 

9$ 

3$: 

.WORD 

0 


MOV 

<R3)*,R2 


MOV 

(R3)*,R5 


MOV 

TYPDS 

<R5),-(SP> 


TYPE 

RDLIN 

.SLASH 


MOV 

<SP)*,R1 


TST 

CFLAG 


BNE 

8$ 


JSR 

1$ 

9$ 

S 

6S 

7$ 

R5.CK.DIG 

5$: 

MOV 

R2,(R5) 


BR 

1$ 

6$: 

TYPE 

.8ADENT 


SUB 

#6.R3 


BR 

1$ 

7$: 

MOV 

R2.CR5) 


BR 

9$ 

8$: 

CLR 

CFLAG 


MOV 

(SP) ,R3 


BR 

IS 

9$: 

TST 

(SP>* 


RTS 

PC 


PARAMETER TABLE ADDRESS 
GET THE PARAMETERS 

SAVE THE PARAMETER TABLE ADDRESS 
CLEAR THE 'CONTROL C* FLAG 
ADDRESS OF PARAMETER NAME 
BR IF A T END OF TABLE 
TYPE 7 HE PARAMETER NAME 
ADDRESS OF PARAMETER NAME TEXT 
MAXIMUM PARAMETER VALUE 
ADDRESS OF PARAMETER 
CURRENT VALUE OF PARAMETER 
TYPE THE CURRENT VALUE OF THE FARAMETER 
' / ' 

READ THE KEYBOARD 
INPUT ASCII STRING ADDRESS 
'CONTROL C' ENTERED ? 

SR IF IT IMS 
CHECK THE D16IT(S) 

CARRIA6E RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 
ILLEGAL INPUT 

TERMINATED WITH A CARRIAGE RETURN 
TERMINATED WITH A 'V 
TERMINATED WITH A *V* 

MOVE NEW VALUE TO PARAMETER LOCATION 
GET MORE PARAMETERS 
'BAD ENTRY* 

DECREMENT THE TABLE POINTER 
TRY AGAIN 
NEW VALUE 
EXIT 

CLEAR THE 'CONTROL C' FLAG 
RELOAD THE PARAMETER TABLE ADDRESS 
TRY AGAIN 

CORRECT THE STACK POINTER 
RETURN 


SEO 0138 



SE2 0139 
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parameter entry routine 


j ii 


typeout assjgn/deassign error message 

CALL * 

#MESADR,ASNM$G ; ERROR MESSAGE ADDRESS 
PC.ASNERR 


MOV 

JSR 

RETURN 


031154 

104401 

001203 

ASNERR: TYPE 

.SCRLF 

031 loO 

■>0-401 

075272 

TYPE 

.CUES 

031164 

104401 

075304 

TYPE 

.UNTMSG 

031 170 

010446 


MOV 

R4,-(SP) 

031172 

104403 


TYPOS 


031174 

002 


.BYTE 

2 

031175 

000 


.BYTE 

0 

031176 

104401 


TYPE 


031200 

000000 


ASNMSG : .WORD 

0 

031202 

000207 


RTS 

PC 


11 


14 

15 

16 

17 

18 

19 

20 031204 

21 031206 

22 031210 

23 031216 

24 031224 

25 031226 

26 031232 

27 031236 

28 031242 

29 031246 

30 031252 

31 031254 

031256 

031260 

031261 

32 031262 

33 

34 

35 

36 031264 

37 031272 

38 031274 

39 031302 

40 031304 

41 031310 

42 

43 

44 


CR-LF 

'?' 

TYPE ’DRIVE' 

.-SAVE R4 FOR TYPEOUT 
.‘TYPE DRIVE NUMBER 
;60 TYPE— OCTAL ASCII 
.-TYPE 2 DIGIT(S) 
^SUPPRESS LEADING ZEROS 
tYPE SPECIFIC MESSAGE 
MESSAGE ADDRESS 


DEASSIGN DRIVE IF A FATAL ERROR OCCURS 
CALL: 

PC. DROP 


001542 

032012 


005004 

111004 

146437 040300 
146437 040300 
006304 

010064 001544 
104401 001203 
104401 075700 
104401 075753 

104401 075304 

006204 
010446 

104403 

002 

000 

000207 


032777 000020 147662 
001006 

023760 001456 000072 
101002 

000137 031204 
000207 


DROP: 


1 $: 


JSR 

RETURN 

CLR 

Move 

Bice 

81 CB 

ASL 

MOV 

TYPE 

TYPE 

TYPE 

TYPE 

ASR 

MOV 

TYPOS 

.BYTE 

.BYTE 

RTS 


R4 

<R0),R4 
ATABIT(R4>.ASNLST 
ATABIT(RA) .AUTLST 


R4 

R0.DDRVS(R4> 

,$CRLF 

.DROPNG 

.MSGON 

^UNTMSG 

R4.-CSP) 


.-CLEAR R4 FOR DRIVE NUMBER 
MOVE DRIVE NUMBER TO R4 

.•REMOVE DRIVE FROM ASSIGNED LIST 
.•DELETE DRIVE FROM AUTO ASSIGN LIST 


l 

PC 


.•MAKE DRIVE NUMBER INTO A TABLE INDEX 
.-PUT DRIVE IN DROP LIST 

.TYPE ’FATAL OR EXCESSIVE ERRORS’ 
.•TYPE ’ON* 

.•TYPE ’DRIVE’ 

.•DRIVE NUMBER 
;;SAVE R4 FOR TYPEOUT 
.-.TYPE DRIVE NUMBER 
;;G0 TYPE— OCTAL ASCII 
;;TYPE 2 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 


.ROUTINE TO DEASSIGN DRIVE I c ERRORS BECOMES EXCESSIVE 


A8NRML: BIT 
BNE 
CMP 
BHI 
JMP 

IS: RTS 


#S«04.BS«R .:EE IF SWITCH 4 SET 

IS ;BP If IT’S SET 

MAXER.STOTAL(RO) ; CHECK TOTAL ERROR VALUE 

IS ;BR IF ERRORS DO NOT EXCEED MAX 

DROP ;DEASS1NG THE DRIVE 

PX ;RETURN 


.•ROUTINE TO CHECK FOR END OF PASS AND END OF TEST 
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END OF PASS ROUTINE 

1 .SBTTL END OF PASS ROUTINE 


.-•INCREMENT THE PASS NUMBER (JPASS) 
;*IF THERES A MONITOR GO TO IT 
;*IF THERE ISN'T JUMP TO RTURN 


031312 




SEOP: 


031312 

005737 

001500 



TST 

031316 

001412 




BEO 

031320 

026037 

000040 

001450 


CMP 

031326 

101020 




BHI 

031330 

103404 




BLO 

031332 

026037 

000036 

001446 


CMP 

031340 

103013 




BHIS 

031342 

000207 



IS: 

RTS 

031344 

026037 

000044 

001454 

EOPl : 

CMP 

031352 

101006 




BHI 

031354 

103404 




BLO 

031356 

026037 

000042 

001452 


CMP 

031364 

103001 




BHIS 

031366 

000207 



IS: 

RTS 

031370 

010446 



E0P2: 

MOV 

031372 

032777 

000400 

147554 


BIT 

031400 

001023 




BNE 

031402 

104401 

001203 



TYPE 

031406 

104401 

075734 



TYPE 

031412 

G16046 

000104 



NOV 

031416 

104405 




TYPDS 

031420 

111037 

001324 



H0V9 

031424 

104401 

075753 



TYPE 

031430 

104401 

075304 



TYPE 

031434 

013746 

001324 



MOV 

031440 

104403 




TYPOS 

031442 

00 2 




.BYTE 

031443 

000 




.BYTE 

031444 

104401 

001203 



TYPE 

031450 

111004 



IS: 

H0V8 

031452 

105737 

001150 



TSTB 

031456 

001410 




BEO 

031460 

136437 

040300 

032012 


BITS 

031466 

001071 




BNE 

031470 

156437 

040300 

032012 


BIS8 

031476 

000443 




BR 

031500 

026037 

000104 

001470 

2S: 

CMP 

031506 

103437 




BLO 

031510 

032777 

000020 

147436 


BIT 

031516 

001033 




BNE 

031520 

104401 

075760 



TYPE 

031524 

104401 

075776 



TYPE 

031530 

104401 

075304 



TYPE 

031534 

013746 

001324 



MOV 

031540 

104403 




TYPOS 


ENDING .‘END OF PASS DETERMINED BY SEEKS OR DATA WORDS 

EOP1 :6R IF SEEKS 

SENDAT+2CRO) .ENDCON+2 :CHECK MSU OF WORDS DATA COUNT 
EOP2 ;BR IF MSW GREATER THAN LIMIT 

IS ;8R IF MSW LESS THAN LIMIT 

SENDA7 (RO) .ENDCON ; CHECK LSW AGAINST LIMIT 

E0P2 ;BR IF EQUAL OR GREATER 

PC 

$ENDSK+2(R0) .ENDSEK+2 .-CHECK MSW OF SEEK COUNT 
EOP2 ;BR IF MSW GREATER THAN LIMIT 

IS .-EXIT IF MSW LESS THAN LIMIT 

SENDSK (RO) .ENDSEK .-CHECK LSW OF SEEK COUNT 

EOP2 ;BR IF EQUAL OR GREATER 

PC 


R4,-(SP> 

#SW08.aSWR 

IS 

.SCRLF 

.ENDPAS 

SPASSC (RO) .-(SP) 

(RO) .DRVNO 
.NSGON 
.UNTMSG 
DRVNO. -(SP) 


.SCRLF 

<RO).R4 


SAVE R4 

INHIBIT END OF PASS TYPEOUT ? 

B R IF YES 
CR-LF 

END OF PASS FOR THE DRIVE 

;;SAVE SPASSC(RO) FOR TYPEOUT 
;60 TYPE— DECIMAL ASCII WITH SIGN 
STORE THE DRIVE NUMBER 
TYPE 'ON' 

•DRIVE * 

SAVE DRVNO FOR TYPEOUT 
60 TYPE— OCTAL ASCII 
TYPE 2 DIGIT <S> 

SUPPRESS LEADING ZEROS 
CR-LF 

MOVE DRIVE NUMBER 


SAUTOB ; RUNNING IN AUTO MODE ? 

2% .gp jf 

ATABI T (R4) , AUTLSt :IS DRIVE ALREADY ASSIGNED TO AUTO LIST ? 

6S *BR IF YES 

ATABI T(R4) .AUTLSt .-ADD DRIVE TO AUTO ASSIGN LIST 

3S 


|PASSC(RO> .PASSES 

#sw04.aswR 
3S 

.END7ST 
.MSGFOR 
.UNTMSG 
DRVNO.-(SP) 


;SEE IF AT END OF TEST 
BR IF NOT 

TYPE END OF TEST MESSAGE ? 

BR IF NO 

TYPE 'END OF TEST' 

TYPE 'FOR* 

•DRIVE ’ 

.-SAVE DRVNO FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 



SEQ 0141 
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END OF PASS ROUTINE 


L 11 


031542 002 

031543 000 

031544 146437 040300 001542 
031552 006304 
031554 010064 001544 
031560 105737 001542 
031564 001041 
031566 005237 001216 
031572 005237 001214 
031576 042737 100000 001214 
031604 000431 


031606 032777 
031614 001002 
031616 004737 
031622 010346 
031624 010004 
031626 062704 
031632 012703 

031636 005024 
031640 005303 
031642 001375 
031644 012603 
031646 C05260 

031652 105737 
031656 001404 
031660 023737 
031666 001402 
031670 012604 
031672 000207 

031674 005237 
031700 001375 
031702 012737 
031710 005237 
031714 005237 
031720 042737 
031726 005327 
031730 000001 
031732 003013 
031734 012737 
031736 000001 
031740 031730 
031742 013700 
031746 0OK05 
031750 000005 
031752 004710 
031754 000240 
031756 000240 
031760 000240 
031762 

031762 000137 
031764 031766 


.BYTE 

• BYTE 

BICB 

ASL 

MOV 

TSTB 

BNE 

INC 

INC 

BIC 

BR 


2 ; ; TYPE 2 DIGITCS) 

0 SUPPRESS LEADING ZEROS 

ATA8IT(R4) .ASNLST ; DELETE DRIVE FROM ASSIGNED LIST 


R4 

R0.DDRVSCR4) 

ASNLST 

7$ 

SDEVCT 

SPASS 

#100000, SPASS 
7$ 


3 031766 012706 


000400 

147340 

3$: BIT 

#SW08,aSUR 


ONE 

4$ 

023714 


JSR 

PC. SUMARY 


4$: MOV 

R3, -<SP> 



MOV 

R0.R4 

000036 


ADD 

#$ENDAT,R4 

000006 


MOV 

#6,R3 



5$: CLR 

(R4i ♦ 



DEC 

R3 



BNE 

5$ 



MOV 

(SP>*. R3 

000104 


INC 

SPASSC(RO) 

001150 


6$: TSTB 

sautob 



BEQ 

7$ 

001542 

032012 

CMP 

ASNLST. AUTLST 



BEQ 

8S 



7S: MOV 

(SP)+, R4 



RTS 

PC 

032012 


8$: INC 

AUTLST 



BNE 

8$ 

000000 

177776 

MOV 

fPRO.PS 

001216 


INC 

SDEVCT 

001214 


INC 

SPASS 

100000 

001214 

BIC 

#100000, SPASS 


DEC 

(PC)* 



SEOPCT : .WORD 

1 



BGT 

SDOAGN 



MOV 

(PC)+. 8(PC>* 



SENDCT: .WORD 

1 



SEOPCT 


000042 


SGET42: MOV 

a#42,R0 



BEQ 

RESET 

SDOAGN 



SENDAD: JSR 

PC.(RO) 



NOP 




NOP 




NOP 




SDOAGN: 




JMP 

a(pc)+ 



SRTNAD: .WORD 

RTURN 

001100 


RTURN: MOV 

#STACK,SP 


.-MAKE DRIVE NUMBER INTO TABLE INDEX 
;PUT BLOCK ADDRESS INTO DROP LIST 
;ALL DRIVES ARE DEASSIGNED ? 

'3R IF NO 

•INCREHENT DEVICE COUNT 
.•INCREMENT THE PASS COUNT 
; AVOID NEGATIVE NUMBER 


.•INHIBIT END OF PASS TYPEOUT ? 

;BR IF YES 

.•TYPE THE DRIVE’S STATISTICS SUMMARY 
.'SAVE R3 

.'DRIVE’S BLOCK ADDRESS 

;ADD THE STARTING ADDR OF SECTIONS TO CLEAR 

.'NUMBER OF LOCNS TO BE CLEARED 

.(CLEAR SENDAT, SENDSK AND SOPERC COUNTERS) 

.'CLEAR THE LOCN 

.-DECREMENT THE LOCATION COUNTER 
;8R IF MORE TO GO 
.RESTORE R3 

.•INCREMENT THE PASS COUNT 

.RUNNING IN AUTO MODE ? 

*8R IF NO 

•HAVE ALL DRIVES COMPLETED PASS IN AUTO HOCE 
;BR IF YES 
.RESTORE R4 
.•RETURN 

.'CLEAR AUTO ASSIGN UST FOR NEXT PASS AND 

;WAIT FOR TTY 

; ALLOW INTERRUPTS 

.•INCREMENT DEVICE COUNT 

; .'INCREMENT THE PASS NUMBER 

;. -DON'T ALLOW A NEG. NUMBER 

;;L00 P? 

;;YES 

; .RESTORE COUNTER 


;;GET MONITOR ADDRESS 
.-.BRANCH IF NO MONITOR 
;; CLEAR THE WORLD 
.* ; GO TO MONITOR 
.-.'SAVE ROOM 
;;F OR 
; ;ACT11 

;; RETURN 


.•RESTORE STACK 
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END OF PASS ROUTINE 

4 031772 005237 001212 INC STESTN 

5 031776 004737 033326 JSR PC.S1KINT 

6 032002 004737 023422 JSR PC.CKCLK 

7 032006 000137 006240 JMP MAIN 

8 

9 032012 000000 AUTLST: .WORD 0 


M 11 


SEO 0142 


.•INCREMENT THE TEST NUMBER IN THE MAIL BOX 
.-MAKE SURE KEYBOARD INTERRUPT AND 
.•SYSTEM CLOCK ARE STILL ON. 

.•RETURN TO LOOP 

;AUTO ASSIGN LIST (USED IN AUTO RUN MODE) 
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END OF PASS ROUTINE 


N 11 


SEQ 0143 



.'ROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER 
; CALL : 

; MOV NUMBER, R5 .-DIVISOR INTO R5 

; JSR PC.GETREM 

; RETURN REMAINDER IS IN R5 

GETREM: MOV SLONUM.-(SP) .'STORE RANDOM NUMBER ON THE STACK FOR DIVIDE 

MOV $HINUM,-(SP) .-UPPER PART 

MOV R5.-CSP) .'PUT THE DIVISOR ONTO THE STACK 

JSR PC.SDIV .-DIVIDE THE RANDOM NUMBERS 

MOV (SP) *,R5 .-PUT THE REMAINDER INTO R5 

TST (SP> + .'ADJUST THE STACK POINTER 

RTS PC 

•SBTTL INTEGER DIVIDE ROUTINE 

;*THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 
.-‘DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 
;*A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 

.'‘DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 
.-‘SAME SIGN AS THE DIVIDEND. 

.'•CALL: 

;* MOV LOW DIVIDEND.-(SP) ; ; THE HIGH DIVIDEND MUST BE < 1/2 

;* MOV HIGH DIVIDEND, -(SP) ;; AS LARGE AS THE DIVISOR 

;‘ MOV DIVISOR, -(SP) 

.'* JSR PC,*D IV 

;* RETURN .-.-QUOTIENT ft REMAINDER ARE ON THE STACK 

;* STACK NO ERROR OVERFLOW DIVIDE BY ZERO 

;* TOP REMAINDER ALLZEROS ALL~ONES ‘ 

;* *2 QUOTIENT ALL ZEROS ALL ONES 

; * 

- * 




SEO 01-4 
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DOUBLE PRECISION DIVISION SUBROUTINE 


B 12 


58 

59 

60 
61 
62 

63 

64 

65 

66 032106 

67 032112 

68 0321H 

69 032116 

70 032122 

71 032124 

72 032130 

73 032132 

74 032134 

75 032140 

76 032142 

77 032144 

78 032146 

79 032150 

80 032152 

81 032154 

82 032156 

83 032160 

84 032162 

85 032166 

86 032170 

87 032172 

88 032176 

89 032200 

90 032202 

91 032204 

92 032206 

93 032210 

94 032212 

95 032214 

96 032216 

97 032220 

98 032224 

99 032226 

100 032230 

101 032232 

102 032234 

103 032236 

104 032240 

105 032242 

106 032244 

107 032250 

108 032252 

109 032254 

110 032260 
111 032262 


DIVIDEND = RO-R1-R2-R3 (RO=MSD) 
DIVISOR = R4-R5 (R4=MSD> 


RETURN 


REMAINDER AFTER DIVISION = R0-R1 (R0=MSD) 
QUOTIENT AFTER DIVISION = R2-R3 (R2=MSD> 


012746 
010446 
010546 
005466 
005416 
005666 
061601 
005500 
066600 
103445 
005046 
006103 
006102 
006101 
006100 
005716 
001410 
005016 
066601 
005500 
005516 
066600 
000a 04 
060501 
005500 
005516 
060400 
005516 
005716 
001401 
005203 
005366 
0C3347 
006003 
103404 
060501 
005500 
060400 
000241 
006103 
062706 
000242 
000207 
062706 
000262 
000207 


000040 

M.DPID: MOV 

#40, -(SP) 

MOV 

R4.-CSP) 


MOV 

R5.-(SP> 

000002 

NEG 

2(SP> 

NEG 

asp 

000002 

SBC 

2(SP) 

ADD 

asp.Ri 


ADC 

RO 

000002 

ADD 

BCS 

2<SP).R0 

H.DP50 


CLR 

-(SP) 


M.DP40: ROL 

R3 


RCL 

R 2 


ROL 

R1 


ROL 

RO 


TST 

asp 


BEQ 

M.DP41 


CLR 

a sp 

000002 

ADD 

2(SP).R1 

ADC 

RO 


ADC 

as P ; I 

000004 

ADD 

BR 

4(SP) ,R0;<- 
M.DP42 


H.DP41: ADD 

R5.R1 


ADC 

RO 


ADC 

asp ; l 


ADD 

R4.R0 ;<- 


M.DP42: ADC 

asp 


TST 

a sp 


BED 

.+4 ;-> 


INC 

R3 ; I 

000006 

DEC 

6<SP) ;<- 

BGT 

M.DP40 


ROR 

R3 


BCS 

N.DP44 


ADD 

R5.R1 


ADC 

RO 


ADD 

R4.R0 


CLC 

R3 


H.DP44: ROL 

000010 

ADD 

#10, SP 


CLV 



RTS 

PC 

000006 

M.DP50: ADD 
SEV 
RTS 

#6.SP 


PC 


COUNTER FOR DIVISION CYCLES 
HIGH ORDER 

LOW ORDER DIVISOR TO THE STACK 

FORM NEGATIVE 

VERSION OF THE DIVISOR 


.PERFORM THE INI1IAL SUBTRACTION 

; IF CARRY THEN OVERFLOW HAS OCCURRED 
.-THIS IS A LONGER LASTING CARRY BIT 


.-TEST ‘•CARRY" INDICATOR 
; IF NO "CARRY" THEN ADD ELSE SUBTRACT 
.•CLEAR UP FOR NEXT TIME 


;ADD -(DIVISOR) 
;SET "CARRY" 


ADD +(DIVISOR) 

SET "CARRY" 

SET "CARRY" 

TEST THE LPDATE INDICATOR 
IF ZERO FORGET IT 
NO CARRY POSSIBLE HERE 
DECREMENT COUNTER 
BRANCH IF MORE TO DO 


.-ADJUST STACK BY 4 WORDS 


•O'OOO'^O'^’^O^fV)— *0<300'>JO'-n^C^'V -•O'OOONff cn-f^mrvj 
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C 12 


SEO 0145 


1 


SBTTL 

SBTTL 

SUPRS - 
SUPRSL 

TYPE ASCIZ. R 
-TYPE ASCIZ, L 

CALL: 


MOV 

#NUMADR,“(SP) 


JSR 

PC, SUPRS 

OR 


MOV 

ANUHADR.-(SP) 


JSR 

PC, SUPRSL 


032264 

010046 


SUPRSL: 

MOV 

032266 

016600 

000004 


MOV 

032272 

005037 

032354 


CLR 

032276 

000405 



BR 

032300 

010046 


SUPRS: 

MOV 

032302 

016600 

000004 


MOV 

032306 

010037 

032354 


MOV 

032312 



SUPR1 : 


032312 

105710 


IS: 

TSTB 

032314 

001406 



BEO 

032316 

122710 

000060 


CMP8 

032322 

001006 



8NE 

032324 

112720 

000040 


M0V8 

032330 

000770 



BR 

032332 

005300 


2S: 

DEC 

032334 

112710 

000060 


M0V8 

032340 

005737 

032354 

3$: 

TST 

032344 

001002 



BNE 

032346 

010037 

032354 


MOV 

032352 

104401 


4$: 

TYPE 

032354 

000000 


SUPR2: 

.WORD 

032356 

012600 



MOV 

032360 

012616 



MOV 

032362 

000207 



RTS 


RO.-(SP) 

4(SP).R0 

SUPR2 

SUPR1 

RO.-(SP) 
4(SP) ,R0 
R0.SUPR2 

(RO) 

2 $ 

#‘0, (RO) 

3$ 

#40,(R0)+ 

1 $ 

RO 

f’O.(RO) 

SUPR2 

4$ 

R0.SUPR2 

0 

(SP) +.R0 

(SP)*,(SP) 

PC 


; FIRST ADDRESS OF ASCIZ STRING 


.‘FIRST ADDRESS OF ASCIZ STRING 


.•SAVE RO 

;GET POINTER TO MESSAGE 


SAVE RO 

GET POINTER TO MESSAGE 
GET POINTER FOR TYPING 

TEST FOR TERMINATOR 
YES 

IS THIS A *V ? 

NO 

REPLACE IT WITH A ‘BLANK’ 
NEXT CHAR. 

BACKUP 1 
MAKE IT *T) 

LEFT JUSTIFY ? 

NO 

YES 


; RESTORE RO 
.•RESTORE STACK 
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D 12 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 032364 

17 032366 

18 032372 

19 032376 

20 

21 032400 

22 032402 

23 032406 

24 032412 

25 032412 

26 032414 

27 032416 

28 032422 

29 032424 

30 032'- 50 

31 032432 

32 032434 

33 032440 

34 032444 

35 032446 

36 032452 

37 032454 

38 032456 

39 032460 

40 032462 


010046 

016600 

005037 

000405 

010046 

016600 

010037 

105710 

001406 

122710 

001006 

112720 

000770 

005300 

112710 

005737 

001002 

010037 

104414 

000000 

012600 

012616 

000207 


SBTTL SSUPRS - TYPE ASCIZ, REPLACE LEADING O'S WITH BLANKS 
SBTTL SSUPRL - TYPE ASCIZ, LETT JUSTIFY 


THIS ROUTINE IS SANE AS ’SUPRSL’ AND 'SUPRS*. EXCEPT THAT IT 
WILL SUPPRESS THE ERROR TYPEOUT IF SW13*1. THIS ACCOMPLISHED BY 
USED TRAP CALL 'DISPLY\ INSTEAD OF 'TYPE'. 


CALL : 


OR 


000004 

032454 

SSUPRL: 

000004 

032454 

SSUPRS: 

SSUPR1 : 
IS: 

000060 


000040 


000060 

032454 

2S: 

3S: 

032454 

4S: 

SSUPR2 : 


NOV 

JSR 

MOV 

JSR 


MOV 

CLR 

BR 


MOV 

MOV 

TSTB 

BEQ 

CMPB 

BNE 

M0V8 

BR 

DEC 

N0V8 

TST 

BNE 

MOV 

DISPLY 

.WORD 

MOV 

MOV 

RTS 


#NUMADR,-(SP) 
PC, SSUPRS 

#NUMADR,-(SP) 
PC. SSUPRL 

RO.-(SP) 

4(SP).R0 

SSUPR2 

SSUPR1 

RO.-(SP) 

4(SP).R0 

R0.SSUPR2 

(RO) 

2S 

#’0,(R0) 

3$ 

#40, (RO)* 

IS 

RO 

#*0, (RO) 
SSUPR2 

4S 

R0.SSUPR2 

0 

(SP) +,R0 
(SP) *.(SP) 

PC 


.•FIRST ADDRESS OF ASCIZ STRING 
.•FIRST ADDRESS OF ASCIZ STRING 


•SAVE RO 

•GET POINTER TO MESSAGE 


SAVE RO 

GET POINTER TO MESSAGE 
GET POINTER FOR TYPING 

TEST FOR TERMINATOR 
YES 

is this a *tr ? 

NO 

REPLACE IT WITH A 'BLANK' 
NEXT CHAR. 

BACKUP 1 
MAKE IT 'XT 
LEFT JUSTIFY ? 

NO 

YES 

TYPE. UNLESS SWl 3=1 

RESTORE RO 
RESTORE STACK 
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SEQ 0147 
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1 





CALL: 

MOV 

fADR.-(SP) 
R5. REPLZ 





JSR 





.WORD 

N 




OR 

MOV 

fADR.-(SP) 





I SR 

R5.FIL.Z 





.WORD 

N 

032464 

005237 

032572 FILLZ: 

INC 

FILLO 

032470 

010046 

REPLZ: 

MOV 

RO.-(SP) 

032472 

016600 

000004 


MOV 

4(SP).R0 

032476 

005737 

032572 


TST 

FILLO 

032502 

001014 



BNE 

3$ 

032504 

122710 

000060 1$: 

CMPB 

f'O.(RO) 

032510 

001004 



fme 

2$ 

032512 

112710 

000040 


MOVB 

#40. (RO) 

032516 

005200 



INC 

RO 

032520 

000771 



BR 

IS 

032522 

105710 

2S: 

TST8 

(RO) 

032524 

001003 



BNE 

3$ 

032526 

005300 



DEC 

RO 

032530 

112710 

000060 


MOVB 

f'O.(RO) 
4(SP) ,R0 

032534 

016600 

000004 3$: 

MOV 

032540 

105720 

4$: 

TSTB 

(R0>* 

032542 

001376 



BNE 

4$ 

032544 

005300 



DEC 

RO 

032546 

162500 



sue 

(R5)+,R0 

032550 

010037 

032556 


MOV 

R0.5S 

032554 

104401 



TYPE 


032556 

000000 

5$: 

.WORD 

0 

032560 

012600 



MOV 

(SP)*. RO 

032562 

012616 



MOV 

(SP)*, (SP) 

032564 

005037 

032572 


CLR 

FILLO 

032570 

000205 



RTS 

R5 

032572 

000000 

riLLO: 

.WORD 

0 




.•ROUTINE TO TYPE AT PRIORI 

032574 

013746 

177776 TYPRI4: 

MOV 

BfPS.-(SP) 

032600 

012737 

000200 177776 


MOV 

f 200, if PS 

032606 

012537 

032616 


MOV 

(R5)*,1S 

032612 

004737 

035550 


JSR 

PC.STYPE 

032616 

oooooo 

1$: 

.WORD 

0 

032620 

000205 



RTS 

R5 


ROUTINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 

ADDRESS OF NUMBER (IN ASCII) 

REPLACE PRECEDING ZEROS WITH BLANKS 
•N* IS NUMBER OF DIGITS TO BE TYPED 

.•ADDRESS OF NUMBER (IN ASCII) 

.-TYPE PRECEDING ZEROS 
;'N' IS NUMBER OF DIGITS TO BE TYPED 

LEAVE ZERO'S 

SAVE RO 

ADDRESS OF NUMBER TO RO 
LEAVE PRECEDING ZEROS ? 

BR IF YES 

BYTE EQUAL TO ASCII 'O’ ? 

BR IF NOT 

REPLACE THE ZERO WITH A SPACE 
INCREMENT THE BYTE ADDRESS 
GO BACK AND LOOK FOR MORE LEADING ZEROS 
SEE IF ZERO BYTE TERMINATOR 
BR IF NOT 

BACKUP STRING POINTER 
PUT A ZERO BACK IN 

PUT ADDRESS OF FIRST CHARACTER ON STACK 
SEE IF ZERO BYTE TERMINATOR 
BR IF NOT 

BACKUP STRING POINTER 
ADJUST ADDRESS 
GET ADDRESS FOR TVPEOUT 
TYPE THE NUMBER 
ADDRESS OF NUMBER 
:POP STACK INTO RO 
RESTORE STACK 
RESET FILL FLAG 
RETURN 

;IF SET. LEAVE PRECEDING ZEROS FOR TYPE 


SAVE THE PRESENT STATUS 
CHANGE THE PRIORITY TO 4 
MESSAGE ADDRESS 
TYPE THE MESSAGE 
MESSAGE ADDRESS GOES HERE 
RETURN 

ROUTINE TO TYPE THE DRIVE (MBA) SERIAL NUMBER IN DECIMAL 
CALL: 


OR 


NOV fDP6.R0 .-ADDRESS OF DRIVE PARAMETER BLOCK 

JSR PC.TYDRV .-CALL ROUTINE 

MOV fDP8.R0 .-ADDRESS OF DRIVE PARAMETER BLOCK 

JSR PC.TYPDRV .-CALL ROUTINE (WITH NO HEADER MESSAGE) 



SEQ 0148 
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F 12 


58 

59 

60 032622 

61 032626 

62 032632 

63 032640 

64 U32642 

65 032644 

66 032650 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 032652 

79 032656 

80 032662 

81 032664 

82 032670 

83 032672 

84 032674 

85 032700 

86 032704 

87 032710 

88 032714 

89 

90 

91 

92 

93 

94 

95 


101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 


;R0 = OPS ADDRESS BEFORE CALLING THE ROUTINE 


104401 077332 
010037 032642 
062737 002130 032642 
104401 
000000 

104401 076141 

000207 


TYDRV: TYPE 
TYPDRV: MOV 
ADD 
TYPE 

IS: .WORD 

TYPE 
RTS 


.DRVSN 

$ 0 . 1 $ 

ASDRVSN.1S 

0 

.PERIOD 

k 


TYPE 'DRV S/N:’ 

ADDRESS OF DP8 

INDEX TO DRIVE (MBA) SERIAL NUMBER 
TYPE THE DRIVE (MBA) SER'AL NUMBER 
ADDRESS OF DRIVE (MBA) SERIAL NUMBER FIELD 
TYPE *.* 

RETURN 


ROUTINE 10 TYPE THE HDA SERIAL NUMBER IN DECIMAL 


CALL: 

NOV 

#DP8,R0 

OR 

JSR 

PC.TYHDA 

MOV 

#DP8.R0 


JSR 

PC.TYPHDA 


.■ADDRESS OF DRIVE PARAMETER BLOCK 
.-CALL ROUTINE 

.ADDRESS OF DRIVE PARAMETER BLOCK 
.•CALL ROUTINE (WITH NO HEADER MESSAGE) 


RO - DP8 ADDRESS BEFORE CALLING THE ROUTINE 


104401 

077320 

TYHDA: TYPE 

005760 

000144 

TYPHDA: TST 

100003 


BPL 

104401 

076334 

TYPE 

000207 


RTS 

010046 


IS: MOV 

062716 

000142 

ADD 

004737 

037222 

JSR 

004737 

032264 

JSR 

104401 

076141 

TYPE 

000207 


RTS 


-HDASN 

IHSNM(RO) 

IS 

.NONE 

k 

RO.-(SP) 

#SHSNL.(SP> 

PC.SD82D 

PC.SUPRSL 

.PERIOD 

PC 


ROUTINE TO TYPE ERRORS 
CALL: 

DISPLY 

MESADR 

RETURN 


032716 

032777 

020000 146230 

SDSPLY; BIT 

#BIT13,8SWA 

032724 

001004 


BNE 

IS 

032726 

005037 

177776 

CLR 

at ps 

032732 

000137 

035550 

JMP 

STYPE 

032 736 
C32742 

062716 

000002 

000002 

IS: ADD 

RTI 

02 ASP) 


TYPE ’HDA S/N:' 

IS SERIAL NUMBER VALID ? 

YES TYPE IT. ELSE 

RETURN 

DPS ADDRESS 

ADDRESS OF LOW NUHBEH 

CONVERT TO DOUBLE DECIMAL NUPBER 

AND TYPE IT LEFT JUSTIFIED 

TYPE 

RETURN 


.•MUST DEFINED IN ‘TRAP 1 TABLE 
.•ADDRESS OF MESSAGE 


INHIBIT ERROR TYPEOUT 
8 R IF YES 

SET PRIORITY TO ZERO 
TYPE THE MESSAGE 
INCREMENT THE RETURN 
RCTURN 





NOV 




; JSR 

; RETURN1 

; RETURN2 

032744 

121127 

000060 

CK.OCT: CMP8 

032750 

103407 


BLO 

032752 

121127 

000067 

CMPB 


THIS ROUTINE IS USED TO CHECK IF AN 
ASCII CHARACTER IS A DIGIT BETWEEN 0 AND 7. 


CALL: 


#ADR.R1 

R5.CK.GCT 


(RD.A'O 

IS 

(R1),#’7 


ADDRESS OF ASCI! CHARACTER 
CHECK THE CHARACTER 
CHARACTER IS NOT BETWEEN 0 -7 
CHARACTER IS IN R2 AS A 
OCTAL DIGIT 

LESS THAN ZERO? 

YES — BRANCH 
GREATER THAN SEVEN? 



SEQ 0U9 


SSUPRL - TYPE ASCIZ. LEFT JUSTIFY 


115 032756 

116 032760 

117 032762 

118 032766 

119 032770 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 


138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 


161 


101004 

111102 

042702 

005725 

000205 


177770 


JAN-82 
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BHI 

IS 

; YES — BRANCH 


MOVB 

(R1),R2 

.GET THE CHARACTER 


BIC 

#*C7,R2 

; STRIP AWAY THE ASCII 


TST 

(R5)4 

.ADJUST FOR RETURN 

IS: 

RTS 

R5 

.•RETURN 





; MOV 

fADR.RI 




; JSR 

; RETURN! 

; RETURN2 

R5.CK.DEC 

032772 

121127 

000060 

CK.DEC: CMPB 

(R1),#’0 

032776 

103407 


BLO 

IS 

033000 

121127 

000071 

CMPB 

(R1) ,#’9 

033004 

101004 


BHI 

IS 

033006 

111102 


MOVB 

(R1).R2 

033010 

042702 

000060 

BIC 

#’ 0 f R2 
<R5^4 

033014 

005725 


TST 

033016 

000205 


IS: RTS 

R5 


THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
AND DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 9. 
CALL : 


169 

170 

171 


033020 

105711 


CK.CHR: TSTB 

033022 

001417 



BEQ 

033024 

121127 

000054 


CMP8 

033030 

001413 



BEQ 

033032 

121127 

000056 


CMPB 

033036 

001407 



BEQ 

033040 

004537 

032772 


JSR 

033044 

000410 



B R 

033046 

004537 

032744 


JSR 

033052 

005725 



TST 

033054 

005725 


IS: 

TST 

033056 

005725 


TST 

033060 

005725 


2$: 

TST 

033062 

005725 


3S: 

TST 

033064 

005201 


4S: 

INC 

033066 

011505 


MOV 

033070 

000205 



RTS 




.-THIS 

ROUTINE 


THIS ROUTINE WILL CHECK AN 
DETERMINE WHAT IT IS. 

CALL: 

MOV #ADR,R1 

JSR R5.CK.CHR 

RETURN ADR1 
RETURN ADR2 
RETURN ADR3 
RETURN ADR4 
RETURN ADR5 
RETURN ADR6 


(R1) 

3$ 

(R1>,#\ 

<R1>,#\ 

IS 

R5.CK.DEC 

4$ 

R5.CK.0CT 

(R$H 

(R5) ♦ 

CR5)* 

<R5>4 

<R5)4 

R1 

(R5),R5 

R5 


ADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
NOT BETWEEN 0 AND 9 
BETWEEN 0 AND 9 
R 2 = DIGIT 

LESS THAN ZERO? 

YES — BRANCH 
GREATER THAN NINE? 

YES — BRANCH 
GET THE CHARACTER 
STRIP AWAY THE ASCII 
ADJUST FOR RETURN 
RETURN 


ASCII CHARACTER TO 


ADDRESS OF ASCII CHARACTER 
CHECK CHARACTER 
UNKNOWN CHARACTER 
CARRIAGE RETURN • (R1)=ADR+1 
COMMA * <R1>*A0R4l 
PERIOD * (R1 )=ADR*1 
DIGIT BETWEEN 0 AND 7. 

DIGIT BETWEEN 8 AND 9. 

R? » DI6IT * <R1)=ADR41 

'CARRIAGE RETURN"? 

YES — BRANCH 
"COMMA"? 

YES — BRANCH 

•period”? 

YES — BRANCH 
’*IGIT"? 

NO — BRANCH 
OCTAL ? 

DIGIT BETWEEN 8-9 
DIGIT BETWEEN 0-7 
PERIOD 
COMMA 

CARRIAGE RETURN 

MOVE POINTER TO NEXT CHARACTER 

UNKNOWN CHARACTER 

RETURN 



SEQ 0150 
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H 12 


172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 


191 


201 


211 


215 

216 


CALL: 


NOV 

NOV 

JSR 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


033072 

010446 

CK.DIG: 

MOV 

033074 

010346 


NOV 

033C76 

010246 


NOV 

033100 

005002 


CLR 

033102 

005003 


CLR 

033104 

005004 


CLR 

033106 

004537 033020 


JSR 

033112 

033206 


6S 

033114 

033214 


9$ 

033116 

033206 


6$ 

033120 

033210 


7$ 

033122 

033126 


IS 

033124 

033126 


IS 

033126 

062705 000004 

IS: 

ADD 

033132 

006303 

2S: 

ASL 

033134 

010346 


NOV 

033136 

006303 


ASL 

033140 

006303 


ASL 

033142 

062603 


ADD 

033144 

060203 


ADD 

033146 

004537 033020 


JSR 

033152 

033212 


3$ 

033154 

033176 


5S 

033156 

033174 


4S 

033160 

033166 


3S 

033162 

033132 


2S 

033164 

033132 


2S 

033166 

105711 

3S: 

TST8 

033170 

001010 


BNE 

033172 

005724 


TST 

033174 

005724 

4$: 

TST 

033176 

005724 

5$: 

TST 

033200 

020316 


CMP 

033202 

101004 


BHI 

033204 

000402 


BR 

033206 

005725 

6$: 

TST 

033210 

005725 

7S: 

TST 

033212 

060405 

8$: 

ADD 

033214 

010302 

9$: 

MOV 

033216 

005726 


TST 

033220 

012603 


MOV 

033222 

012604 


MOV 

033224 

011505 


MOV 

033226 

000205 


RTS 


#ADR,R1 

#NUM,R2 

R5.CK.DIG 

adAi 

ADR2 

ADR3 

ADR4 

ADR5 

ADR6 

R4.-(SP> 

R3,-(SP) 

R2.-CSP) 

S 

R4 

R5.CK.CHR 


K4.R5 

R3 

R3.-CSP) 

R3 

R3 

(SP)+, R3 

R2.R3 

R5.CK.CHR 


CRD 

8$ 

(R4)+ 
(R4) + 
(R4)+ 

R3. (SP) 

9$ 

81 

(R5) + 
(R5H 
R4.R5 
R3.R2 

csA.h 

(SP)+,R3 

(SPJ+.R4 

(R5),R5 

R5 


ADDRESS OF ASCIZ STRING 
NAX. NAGNITUDE OF INPUT NUMBER 
CHECK DIGITS 

"CR* ONLY ENTERED — R2=0 
'PERIOD* ONLY ENTERED — R2-0 
ILLEGAL CHARACTER OR INPUT TOO LARGE 
‘ “CR" — R2 = NUMBER 
"COMMA " — R 2 = NUMBER 
‘PERIOD" — R 2 = NUMBER 

SAVE R4 
SAVE R3 

SAVE THE MAX. SIZE ON THE STACK 
START WITH 0 


CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 

I • M 


'CR" l 'PERIOD' 


DIGIT 0-7 
DIGIT 8-9 

STEP RETURN POINTER PAST 
INPUT NUMBER *2 
SAVE »2 
•4 
*8 

(* 2 )*(* 8 > * *10 
UPDATE THE INPUT NUMBER 
CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 


DIGIT 0-7 
DIGIT 8-9 

DOES A "CR" FOLLOW THE 'PERIOD" 

BR IF NOT 

INCREMENT THE RETURN 
INCREMENT THE RETURN 
INCREMENT THE RETURN 
CHECK THE MAGNITUDE OF THE NUMBER 
8R IF ENTERED NUMBER TOO LARGE 
BYPASS INCREMENT 

INCREMENT RETURN PAST INVALID RETURN 
INCREMENT RETURN 
SETUP RETURN POINTER 
ENTERED VALUE 

CLEAN MAX. SIZE OFF OF STACK 

RESTORE R3 

RESTORE R4 

GET RETURN ADDRESS 

RETURN 


.-THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 


R2=? 


' RETURNS 



SEO 0151 
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217 

218 

219 

220 
221 
222 

223 

224 

225 

226 033230 

227 033236 

228 033242 

229 033246 

230 033252 

231 033254 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 033260 

244 033266 

245 033272 

246 033276 

247 033302 

248 033304 


UNSIGNED DECIMAL ASCIZ NUMBER. 

CALL * 

MOV NUMBER. -(SP) ;PUT THE NUMBER ON THE STACK 

JSR PC SSB2D 'CALL' 

RETURN * ; ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


016637 000002 033254 
012746 033254 
004737 037222 
012666 000002 
000207 

000000 000000 


NOTE: 

SSB2D: 

1 $: 


THE PROGRAM REOUIRES THIS FORM OF •$$820’. NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 


MOV 

MOV 

JSR 

MOV 

RTS 

.WORD 


2(SP).1* 

#1$.-(SP> 

PC.SDB2D 

(SP)O(SP) 

PC 

0.0 


SAVE THE BINARY NUMBER 
SET THE POINTER 

CALL THE DOUBLE LENGTH CONVERT 

PICKUP THE POINTER 

RETURN 


THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
UNSIGNED OCTAL ASCIZ NUMBER. 

CALL 


MOV NUMBER.-(SP) 

JSR PC,SSe20 

RETURN 


PUT THE NUMBER ON THE STACK 
CALL: 

ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


016637 000002 033304 
012746 033304 
004737 037416 
012666 000002 
000207 

000000 000000 


NOTE: 

SS820: 

IS: 


THE PROGRAM REQUIRES THIS FORM OF '$$820*, 
THE SYSMAC LIBRARY, REV C AND LATER 


NOT THE VERSION ON 


MOV 

MOV 

JSR 

NOV 

RTS 

.WORD 


2(SP),1S 

m,-<sp> 

PC.SDB20 

(SP)*,2<SP> 

PC 

0,0 


SAVE THE BINARY NUMBER 

SET THE POINTER 

CALL THE DOUBLE LENGTH CONVERT 

PICKUP THE POINTER 

RETURN 
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1 


.S8TTL TTY INPUT ROUTINE 


033310 000000 
033312 000000 
033314 000000 
033316 

033325 


.ENABL LSB 
STKCNT: .WORD 0 
STKQIN: .WORD 0 
STKOOUT: .WORD 0 
STKQSRT: .8LK8 7 
STKQ£ND=. 

.EVEN 


;; NUMBER OF ITEMS IN QUEUE 
;; INPUT POINTER 
; .OUTPUT POINTER 
; ; T TV KEYBOARD QUEUE 


*TK INITIALIZE ROUTINE 

♦THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
♦SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


♦CALL: 

♦ JSR 

* RETURN 


033326 

005037 

033310 


iTKINT; CLR 

033332 

012737 

033316 

033312 

NOV 

033340 

013737 

033312 

0333 * 

MOV 

033346 

012737 

033376 

000060 

MOV 

033354 

012737 

000200 

000062 

MOV 

033362 

005777 

145574 


TST 

033366 

012777 

000100 

145564 

MOV 

033374 

000207 



RTS 


PC.STKINT 


STKCNT 

fSTKQSRT. STKQIN 
STKQIN. STKOOUT 
#STKSRV.a#TKV|C 
#20C,a#TKVEC*2 
asTKB 

fioo.asTKS 

PC 


;;CLEAR COUNT OF ITEMS IN OUEUE 
.‘.‘MOVE THE STARTING ADDRESS OF THE 
.‘.‘QUEUE INTO THE INPUT t OUTPUT POINTERS. 
.‘.‘INITIALIZE THE KEYBOARD VECTOR 
;; oR“ LEVEL 4 
;;CLEAR DONE FLAG 
.* .‘ENABLE TTY KEYBOARD INTERRUPT 
..RETURN TO CALLER 


033376 

117746 

145560 


iTKSRV: 

Move 

aSTK0.-(SP) 

033402 

042716 

177600 



BIC 

#*C177.(SP) 

033406 

021627 

000021 



CMP 

(SPJ.fSXON 

033412 

001002 




BNE 

30S 

033414 

005726 




TST 

(SP>+ 

033416 

000002 




RTI 


033420 




30$: 



033420 

021627 

000003 



CMP 

(SP>.#3 

033424 

001007 




BNE 

IS 

033426 

104401 

034533 



TYPE 

.SCNTLC 

033432 

004737 

033326 



JSR 

PC.STKINT 

033436 

005726 




TST 

(SP) + 

033440 

000137 

034574 



JMP 

CTRAP 

033444 

021627 

000007 


IS: 

CMP 

(SP),#7 

033450 

001004 




BNE 

2S 

033452 

022737 

000176 

001154 


CMP 

fSUREG.SWR 

033460 

001500 




BEQ 

6S 

033462 




2S: 



033462 

022737 

000007 

033310 


CMP 

#7, STKCNT 

033470 

001004 




BNE 

3S 

033472 

104401 

001176 



TYPE 

.S6ELL 


♦TK SERVICE ROUTINE 

♦THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
♦BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

^ f T f M TliC Q | |g | |p 

•IF THE CHARACTER IS A , *CONTROL-C" <*C> STKINT IS CALLED AND 
•UPON RETURN EXIT IS MADE TO THE ,, CONTROL-C“ RESTART ADDRESS (CTRAP) 

.‘.‘PICKUP THE CHARACTER 
; .STRIP THE JUNK 
;;I$ IT A RANDOM XON? 

.‘.BRANCH IF NO 
.'.‘CLEAN RANDOM XON OFF STACK 
RETURN 

;;IS IT A CONTROL C? 

.‘.BRANCH IF NO 
.-.‘TYPE A CONTROL-C (*C> 

;;IN1T THE KEYBOARD 
;; CLEAN UP STACK 
;; CONTROL C RESTART 
; ;IS IT A CONTROL G? 

; .-BRANCH IF NO 
; ; I S SOFT-SWR SELECTED? 

;;G0 TO SUR CHANGE 

; ; IS THE QUEUE FULL? 

; .BRANCH IF NO 
;;RING THE TTY BELL 


i 
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SEQ 0153 


033476 

005726 





TST 

(SP)* 

.-CLEAN CHARACTER OFF OF STACK 

033500 

000451 





BR 

5$ 

.-EXIT 

033502 

021627 

000023 


3$: 

CMP 

(SP).#23 

;IS IT A CONTROL-S? 

0335C6 

001021 





BNE 

32$ 

.-BRANCH IF NO 

033510 

005077 

145444 




CLR 

8STKS 

.•DISABLE TTY KEYBOARD INTERRUPTS 

033514 

005726 





TST 

(SP) + 

.•CLEAN CHAR OFF STACK 

033516 

105777 

145436 


31$: 

TST8 

8ST KS 

.’WAIT FOR A CHAR 

033522 

100375 





BPL 

31$ 

.•LOOP UNTIL ITS THERE 

033524 

117746 

145432 




MOVB 

8$TKB.-(SP) 

;GET THE CHARACTER 
.-MAKE IT 7-BIT ASCII 

033530 

042716 

177600 




BIC 

#*C177.(SP) 

033534 

022627 

000021 




CMP 

(SP)*.#21 

;IS IT A CGNTROL-Q? 

033540 

001366 





BNE 

31$ 

.•BRANCH IF NO 

033542 

012777 

000100 

145410 



MOV 

#100.8$TKS 

.•REENABLE TTY KEYBOARD INTERRUPTS 

033550 

000002 

033310 




RTI 

.•RETURN 

033552 

005237 


32$: 

INC 

STKCNT 

.•COUNT THIS CHARACTER 

033556 

021627 

000140 




CMP 

(SP).#140 

;IS IT UPPER CASE? 

033562 

002405 





BLT 

4$ 

.•BRANCH IF YES 

033564 

021627 

000175 




CMP 

(SP) ,#175 

;IS IT A SPECIAL CHAR? 

033570 

003002 





BGT 

4$ 

.'BRANCH IF YES 

033572 

042716 

000040 




BIC 

#40. (SP) 

.•MAKE IT UPPER CASE 

033576 

112677 

177510 


4$: 

MOVB 

($?>♦, a$TKQIN 

.-AND PUT IT IN QUEUE 

033602 

005237 

033312 




INC 

$TKQIN 

.•UPDATE THE POINTER 

033606 

023727 

033312 

033325 



CMP 

$TKQ1N.#$TKQEND 

;G0 Of F THE END? 

033614 

001003 





BNE 

5$ 

.•BRANCH IF NO 

033616 

012737 

033316 

033312 



MOV 

#$TKOSRT.$TKQIN 

.•RESET THE POINTER 

03362'' 

000002 



5$: 

RTI 

.•RETURN 






'‘SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 






•ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 






•SERVICE THE 

TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 






:*CALL 

WHEN OPERATING IN TTY INTERRUPT MODE. 

033626 

022737 

000176 

001154 

SCKSWR: 

CMP 

fSWREG.SWR 

;IS THE SOFT-SWR SELECTED 

033634 

001124 





BNE 

15$ 

.-EXIT IF NOT 

033636 

105777 

145316 




TSTB 

8$tks 

;IS A CHAR WAITIN6? 

033642 

100121 





BPL 

15$ 

;IF NOT. EXIT 

033644 

117746 

145312 




MOVB 

8STKB,-<SP> 

#*cm.(sp) 

(SP),#7 

.YES 

033650 

042716 

177600 




BIC 

.•MAKE IT 7-BIT ASCII 

033654 

021627 

000007 




CMP 

; IS IT A CONTROL-G? 

033660 

001300 





BNE 

2$ 

;IF NOT. PUT IT IN THE TTY QUEUE 
.'AND EXIT 






•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 

033662 

123727 




•ROUTINE OR FROM THE SOFTWARE SWITCH RE6ISTER TRAP CALL, AS A RESULT OF A 
•CONTROL -G BEING TYPED. AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

001150 

000001 

6$: 

CMPB 

• % 

8 

I 

.-ARE WE RUNNING IN AUTO-MODE? 

033670 

001674 





BEQ 

2$ 

.•BRANCH IF YES 

033672 

005726 





TST 

(SP)* 

.•CLEAR CONTROL-G OFF STACK 

033674 

004737 

033326 




JSR 

PC.STKINT 

.•FLUSH THE TTY INPUT QUEUE 

033700 

005077 

145254 




CLR 

8$fxS 

.•DISABLE TTY KEYBOARD INTERRUPTS 

033704 

112737 

000001 

001151 



MOVB 

#1 ,$INTAG 

.•SET INTERRUPT MODE INDICATOR 

033712 

104401 

034545 




TYPE 

,$CNTLG 

.•ECHO THE CONTROL-G (*G> 

033716 

104401 

034552 


$GTSWR: 

TYPE 

,$MSWR 

.-TYPE CURRENT CONTENTS 

033722 

013746 

000176 




MOV 

SWREG.-(SP) 

.-SAVE SWREG FOR TYPEOUT 

033726 

104402 





TYPOC 


;G0 TYPE— OCTAL ASCII (ALL DIGITS) 
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033730 104401 034563 TYPE ,$MNEW 

033734 005046 19$: CLR -(SP) 

033736 005046 CLR -(SP) 

033740 105777 145214 7$: TSTB 8$TKS 

033744 100375 BPL 7$ 

033746 117746 145210 MOVB a$TKB,- l A 

033752 042716 177600 BIC #*C177.(! 

033756 021627 000003 CMP (SPJ ,AT3 

033762 001015 8NE 9$ 

033764 104401 034533 TYPE ,$CNTLC 

033770 062706 000006 ADD #6,SP 

033774 123727 001151 000001 CMP8 $INTAG.#‘ 

034002 001003 BNE 8$ 

034004 012777 000100 1451 46 MOV #100, BIT) 

034012 000137 034574 8$: JMP CTRAP 


034016 021627 000025 
034022 001005 
034024 104401 034540 

034030 062706 000006 
034034 000737 


SEQ 0154 


034036 

034042 

034044 

034050 

034052 

034060 

034064 

034070 

034076 

034100 

034106 

034110 

034114 

034120 

034122 

034126 

034130 

034134 

034140 

034142 

034144 

034146 

034150 

034154 

034160 

034162 

034166 


021627 

001022 

005766 

001403 

016677 

062706 

104401 

123727 

001003 

012777 

000002 

004737 

021627 

002420 

021627 

003015 

042726 

005766 

001403 

006316 

006316 

006316 

005266 

056616 

000667 

104401 

000720 


000015 

000004 

000002 145074 
000006 
001203 

001151 000001 

000100 145052 

035762 

000060 

000067 

000060 

000002 


000002 

177776 

001202 



TYPE 

,$MNEW 

19$: 

CLR 

-(SP) 


CLR 

-(SP) 

7$: 

TSTB 

S$TKS 


BPL 

7$ 


MOVB 

9$TKB.-(S p ) 


BIC 

#*C177.(SP) 


CMP 

(SP) ,#3 


BNE 

9$ 


TYPE 

,$CNTLC 


ADD 

#6 ,SP 


CMP8 

$INTAG.#1 


BNE 

8$ 


MOV 

#100,a$TKS 

8$: 

JMP 

CTRAP 

9$: 

CMP 

(SP) ,#25 


BNE 

10$ 


TYPE 

.SCNTLU 

20$: 

ADD 

#6 .SP 


BR 

19i 

10$: 

CMP 

(SP), #15 


BNE 

16$ 


TST 

4(SP) 


BEG 

11$ 


MOV 

2(SP),aSUR 

11$: 

ADD 

#6.SP 

14$: 

TYPE 

,$CRLF 


CMP8 

$INTAG.#1 


BNE 

15$ 


MOV 

#ioo.a$TKs 

15$: 

RTI 


16$: 

JSR 

PC.$TYPEC 


CMP 

(SP) .#60 


BLT 

18$ 


CMP 

(SP) .#67 


3GT 

18$ 


BIC 

#60 ASP)* 


TST 

2(SP) 


BEQ 

17$ 


ASL 

(SP) 


ASL 

(SP) 


ASL 

(SP) 

17$: 

INC 

2(SP) 


BIS 

-2(SP),(SP) 


BR 

7$ 

18$: 

TYPE 

,$QUES 


BR 

2o$ 

.DSA8L 

LSB 



; .'PROMPT FOR NEW SUR 
;; CLEAR COUNTER 
;;THE NEW SUR 
;;CHAR THERE? 

; ; Jt F NOT TRY AGAIN 

; .-PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 

; ; IS IT A CONTROL-C? 

; .-BRANCH IF NOT 

;;YES, ECHO CONTROL-C <*C> 

;; CLEAN UP STACK 

.-.-REENABLE TTY KEYBOARD INTERRUPTS? 

• • APAJUfM tf MO 

•'•ALLOW TTY KEYBOARD INTERRUPTS 
;; CONTROL-C RESTART 


;; IS IT A CONTROL -U? 

; .-BRANCH IF NOT 
;;YES, ECHO CONTROL-U (*U) 
;; IGNORE PREVIOUS INPUT 
;; LET'S TRY IT AGAIN 


;IS IT A <CR>? 

.•BRANCH IF NO 

;Y£S. IS IT THE FIRST CHAR? 
.‘BRANCH IF YES 
; SAVE NEW SUR 
.•CLEAR UP STACK 
.•ECHO <CR> AND <LF> 

; RE-ENABLE TTY KBD INTERRUPTS? 
.-BRANCH IF NOT 

; RE-ENABLE TTY KBD INTERRUPTS 

.•RETURN 

.•ECHO CHAR 

.-CHAR < 0? 

.•BRANCH IF YES 
.-CHAR > 7? 

.•BRANCH IF YES 
.-STRIP-OFF ASCII 
;IS THIS THE FIRST CHAR 
.•BRANCH IF YES 
;N0. SHIFT PRESENT 
; CHAR OVER TO MAKE 

; ROOM FOR NEW ONE. 

;KEEP COUNT OF CHAR 
;SET IN NEU CHAR 
.-GET THE NEXT ONE 
.-TYPE ?<CRXLF> 

.-SIMULATE CONTROL-U 


■ **************** ********************** ************************* 


i 


1 
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SEQ 0155 

TTY INPUT ROUTINE 












•THIS ROUTINE 

WILL INPUT A SINGLE CHARACTER FROM THE TTY 






•CALL: 








• RDCHR 

• 

GET A CHARACTER FROM THE QUEUE 






:• RETURN HERE 

CHARACTER IS ON THE STACK 






;* 

0 

WITH PARITY BIT STRIPPED OFF 

034170 

011646 




(RDCHR: MOV 

(SP),-(SP) 

;PUSH DOWN THE PC AND 

034172 

016666 

000004 

000002 


MOV 

4(SP),2(SP) 

; THE PS 

034200 

005066 

000004 



CLR 

4 (Sp; 

;GET READY FOR A CHARACTER 

034204 

005046 




CLR 

-(SP> 

rPUT NEW PS ON STACK 

034206 

012746 

034214 



MOV 

#64$. -(SP) 

;PUT NEW PC ON STACK 

034212 

000002 




RTI 

• 

POP NEW PC AND PS 

034214 




< 

i4$: 



034214 

005737 

033310 


' 

$: TST 

STKCNT 

rWAIT ON A CHARACTER 

034220 

001775 




BEQ 

IS 


034222 

005337 

033310 



DEC 

STKCNT 

I DECREMENT THE COUNTER 

03*226 

117766 

177062 

000004 


MOVB 

aSTK00UT.4(SP) ; 

;GET ONE CHARACTER 

034234 

005237 

033314 



INC 

STKQOUT ; 

UPDATE THE POINTER 

034240 

023727 

033314 

033325 


CMP 

STKQOUT.fSTKQEND 

;;DID IT GO OFF OF THE END? 

034246 

001003 




BNE 

2$ 

BRANCH IF NO 

034250 

012737 

033316 

033314 


MOV 

fSTKGSRT. STKQOUT 

;; RESET THE POINTER , 

034256 

000002 




$: RTI 

0 

jRETURN 






•THIS ROUTINE 

WILL INPUT A STRING FROM THE TTY 






•CALL: 








* RDL1N 

• 

INPUT A STRING FROM THE TTY 






•* RETURN HERE 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 






;• 

• 

TERMINATOR UILL BE A BYTE OF ALL 0‘S 

034260 

010346 




(RDLIN: MOV 

R3.-(SP> 

SAVE R3 

034262 

005046 




CLR 

-(SP) 

CLEAR THE RUBOUT KEY i 

034264 

012703 

034514 



$: MOV 

#$TTYIN,R3 

GET ADDRESS 

034270 

022703 

034533 



>$: CMP 

#$TTYIN*15..R3 ; 

BUFFER FULL? 

034274 

101456 




BLOS 

4$ 

BR IF YES i 

034276 

104410 




RDCHR 

• 

GO READ ONE CHARACTER FROM THE TTY 

034300 

112613 




MOVB 

(SP)*, (R3) 

GET CHARACTER 

034302 

122713 

000177 



0$: CMP8 

#177, (R3) 

IS IT A RUBOUT 

034306 

001022 




BNE 

5$ 

BR IF NO 

034310 

005716 




TST 

(SP) 

IS THIS THE FIRST RUBOUT? 

034312 

001007 




BNE 

6$ 

BR IF NO 

034314 

112737 

000134 

034512 


MOVB 

#'\,9S 

TYPE A BACK SLASH , 

034322 

104401 

034512 



TYPE 

.9$ 


034326 

012716 

177777 



MOV 

#-1.(SP) 

SET THE RUBOUT KEY 

034332 

005303 



( 

i$: DEC 

R3 

BACKUP BY ONE 

034334 

020327 

034514 



CMP 

R3,#$TTYIN 

STACK EMPTY? 

034340 

103434 




8L0 

4$ 

BR IF YES 

034342 

111337 

034512 



MOVB 

(R3),9S 

SETUP TO TYPEOUT THE DELETED CHAR. 

034346 

104401 

034512 



TYPE 

,9$ 

GO TYPE 

034352 

000746 




BR 

is ; 

GO READ ANOTHER CHAR. 

034354 

005716 




>$: TST 

(SP) 

RUBOUT KEY SET? 

034356 

001406 




BEO 

7$ 

BR IF NO 

034360 

112737 

000134 

034512 


MOVB 

#'\,9S 

TYPE A BACK SLASH 

034366 

104401 

034512 



TYPE 

,9S 


034372 

005016 




CLR 

(SP) 

CLEAR THE RUBOUT KEY 

034374 

122713 

000025 


< 

CMP8 

#25. (R3) 

IS CHARACTER A CTRL U? * 

034400 

001003 




BNE 

8$ 

BR IF NO 

1 
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034402 

104401 


034406 

000726 


034410 

122713 


034414 

001011 


034416 

105013 


034420 

104401 


034424 

104401 


034430 

000717 


034432 

104401 


034436 

000712 


034440 

111337 


034444 

104401 


034450 

122723 


034454 

001305 


034456 

105063 


034462 

104401 


034466 

005726 


034470 

012603 


034472 

011646 


034474 

016666 


034502 

012766 


034510 

000002 


034512 

000 


034513 

034514 

000 


034533 

136 


034540 

136 


034545 

136 


034552 

015 

2 

7 

034563 

040 

J 

4 

5 

034574 

012737 

6 

034602 

005237 

7 

034606 

112777 

8 

034614 

005237 

9 

034620 

023727 

10 

034626 

001003 

11 

034630 

012737 

12 

034636 

EM 
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034540 


TYPE 

-SCNTLU 

.-TYPE A CONTROL *\T 



BR 

Is 

;G0 START OVER 

000022 


8$: CMPB 

022 , (R3> 

;IS CHARACTER A *' A R”? 



BNE 

3S 

.•BRANCH IF NO 



CLRB 

(R3) 

.•CLEAR THE CHARACTER 

001203 


TYPE 

.SCRLF 

.-TYPE A "CR" I ’ tF n 

034514 


TYPE 

-STTYIN 

.•TYPE THE INPUT STRING 



BR 


;G0 PICKUP ANOTHER CHACTER 

001202 


4$: TYPE 

-SQUES 

.•TYPE A ’?’ 



BR 

Is 

.•CLEAR THE BUFFER AND LOOP 

034512 


3$: MOVB 

(R3),9S 

.•ECHO THE CHARACTER 

034512 


TYPE 

,9S 


000015 


CMPB 

#15.<R3>* 

.•CHECK FOR RETURN 



BNE 

2S 

.•LOOP IF NOT RETURN 

177777 


CLRB 

-1 (R3) 

.•CLEAR RETURN (THE 15) 

001204 


TYPE 

,SL F 

.•TYPE A LINE FEED 



TST 

(SPM 

.•CLEAN RUBOUT KEY FROM THE STACK 



MOV 

(SPJ+.R3 

.•RESTORE R3 



MOV 

(SP)--(SP) 

.•ADJUST THE STACK AND PUT ADDRESS OF THE 

000004 

000002 

MOV 

4(SP),2(SP) 

; FIRST ASCII CHARACTER ON IT 

034514 

000004 

MOV 

#STTYIN,4(SP) 




RTI 


.•RETURN 



9$: .BYTE 

0 

; STORAGE FOR ASCII CHAR. TO TYPE 



.BYTE 

0 

; TERMINATOR 



STTYIN: .8LKB 

15. 

;RESERVE 15. BYTES FOR TTY INPUT 

103 

015 

SCNTLC: .ASCJ2 

/*C/<15><12> 

.•CONTROL "C" 

125 

015 

SCNTLU: .ASCIZ 

/*U/<15><12> 

.•CONTROL ‘V* 

107 

015 

SCNTLG: .ASCJZ 

/*V<15><12> 

.•CONTROL "G" 

012 

123 

SMS UR : .ASCIZ 

<15><12>/SWR = / 


040 

116 

SMNEW: .ASCIZ 

/ NEW = / 




.-THIS ROUTINE WILL PROCESS THE ( 

*C> CHARACTER 

000001 

001340 

CTRAP: MOV 

#1 -CFLAG 

.-SET THE ’CONTROL C’ FLAG 

033310 


INC 

STKCNT 

.•COUNT THIS CHARACTER 

000015 

176476 

MOVB 

#15,8STKQIN 

.-PUT ’RETURN’ CHARACTER IN OUEUE 

033312 


INC 

STKOIN 

.•UPDATE THE POINTER 

033312 

033325 

CMP 

STKOIN.ISTKQEND 

;G0 OFF THE END ? 



BNE 

IS 

;8R IF YES 

033316 

033312 

MOV 

fSTKQSRT.STKQIN 

.•RESET THE POINTER 



IS: RTI 


.‘RETURN 


SEO 0156 




SEQ 0157 
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1 .SBTTL ERROR HANDLER ROUTINE 


034640 

034644 

034646 

034652 

034656 

034664 

034666 

034672 

034676 

034702 

034706 

034710 

034716 

034724 

034726 

034732 

034736 

034742 

034750 

034^56 

034764 

034766 

034774 

034776 

035002 

035004 

035012 

035014 

035020 

035026 

035034 

035036 

035044 

035050 

035052 

035056 

035064 

035066 

035074 

035076 

03510a 

035112 

035120 


105037 

104407 

010337 

010137 

032777 

001004 

104401 

104401 

004737 

105237 

001775 

013777 

032777 

001402 

104401 

005237 

011637 

162737 

117737 

032777 

001060 

122737 

001454 

105737 

001047 

022737 

001445 

013746 

012737 

013737 

000406 

012737 

012716 

000002 

012637 

022737 

001420 

032737 

001414 

042737 

113737 

112737 

000402 


035226 

001322 

001220 

020000 

001203 

001203 

024764 

001117 

001116 

002000 

001176 

001126 

001132 

000002 

144156 

001000 


144270 


144240 

144230 


001132 

001130 

14417J 


000177 001130 
035226 

177777 035224 


000004 

035036 

177766 

177777 

035052 

000004 


000004 

035224 

035224 


•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO SERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


;*SW15*1 

; *SW1 3=1 

;*SW10=1 

.-•CALL 

; • ERROR 

SERROR: CLRB 
CKSWR 
MOV 
MOV 
BIT 
BNE 
TYPE 
TYPE 
JSR 

7$: INCB 

BEQ 
NOV 
BIT 
BEQ 
TYPE 

1$: INC 

MOV 
SUB 
M0V8 
BIT 
BNE 
CNP8 
BEQ 
TST8 
BNE 
CMP 
BEQ 
MOV 
MOV 
MOV 
BR 

1000$: MOV 
MOV 
RTI 

1001$: MOV 


177777 035224 100'*$: 
000001 035224 


000001 

001130 

000177 


177766 

035226 

001130 


CMP 

BEQ 

BIT 

BEQ 

BIC 

MOVB 

movb 

BR 


HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 


; ;ERROR=EMT AND N*ERROR ITEM NUMBER 


IBSAVE 


;; CLEAR THE ITEM BYTE SAVE LOCATION 
; j TEST FOR CHANGE IN SOFT-SWR 
R3.ATTN .-SAVE THE ATTENTION REGISTER CONTENTS 

R1, DRIVE ; DRIVE NUMBER 

fSWlS.iSWR ; INHIBIT PRINTOUTS ? 

.♦12 ;8R IF YES 

,$CRLF ; CR-LF 

,$CRLF ; CR-LF 

PC.$TIME ; TYPE THE TIME 

$ERFLG ;;SET THE ERROR FLAG 

7$ ; .-DON’T LET THE FLAG GO TO ZERO 

STSTNM.BDI SPLAY ;; DISPLAY TEST NUMBER AND ERROR FLAG 

#8IT10.aSWR ;;BELL ON ERROR? 

1$ ;;N0 - SKIP 

,$8ELL ;;RING BELL 

$ERTTL ;; COUNT THE NUMBER OF ERRORS 

(SP>,$ERRPC ; ; GET ADDRESS OF ERROR INSTRUCTION 

#2,$ERRPC 

a$£RRPC,$ ITEMS ;;STRIP AND SAVE THE ERROR ITEM CODE 

#8IT09,3SWR ; ; SEE IF LOOP ON ERROR IS SET 

1004$ .-.-BRANCH AROUND ROUTINE IF SO 

f177.$IT£MB ;;SEE IF THIS IS THE POWER FAIL CALL 

10044 ;. -BRANCH AROUND ROUTINE IF IT IS 

IBSAVE .-.SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 

1003$ .-.-BRANCH IF SO 

#-1, CPSAVE .-.-SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 

1004$ ;; BRANCH IF SO 

ERRVEC.-(SP) ;;SAVE CONTENTS OF ERROR VECTOR 

#1000$,ERRVEC ;. -SETUP ’TRAP* RETURN ADDRESS 

1 77766, CPSAVE ;;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

1001 $ 

#-1 .CPSAVE ;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
#106l$,(SP) .-.‘SETUP RETURN ADDRESS 

(SPH.ERRVEC ; .-RESTORE CONTENTS OF ERROR VECTOR 


#-1. CPSAVE 

ioo4$ 

#81 TOO, CPSAVE 
1004$ 

#61 TOO, 177766 
SITEMB.IBSAVE 
#177.$ITEMB 
10041 


.-SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
.-BRANCH IF SO 

,-SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 

.-BRANCH IF OK 

; CLEAR THE BIT FOUND SET 

.-MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 

;SET SITEMB TO SPECIAL POWER FAIL POINTER 

.BRANCH OVER IBSAVE CLEARING 




SEQ 0158 


;; CLEAR IBSAVE SO 2ND TINE THROUGH EXITS 

;;SKIP TYPEOUT IT SET 
;;SKIP TYPEOUTS 
; ; 60 TO USER ERROR ROUTINE 


RUNNIN6 IN APT NODE 

NO. SKIP APT ERROR REPORT 

SET I TEN NUNBER AS ERROR NUNBER 

REPORT FATAL ERROR TO APT 


APT ERROR LOOP 

SEE IF IBSAVE IS LOADED 

BRANCH IF NOT - NO HALT ON PUR NON BIT ERROR 
HALT ON ERROR 
SKIP IF CONTINUE 
HALT ON ERROR! 

TEST FOR CHANGE IN SOFT-SUR 

SEE IF I TEN BYTE SAVE LOCATION HAS AN ERROR CALL 

BRANCH BACK TO CALL ORIGINAL ERROR 

RETURN 

LOCATION TO SAVE CPU ERROR REG CONTENTS 
LOCATION TO SAVE I TEN BYTE 


! 
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SEQ 0159 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


•THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
•ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'fRROR TABLE" ($ERRTB). 
•AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


035230 




SERRTYP: 



035230 

104401 

001203 


TYPE 

,$CRLF 

"CARRIAGE RETURN" 1 "LINE FEED" 

035234 

010046 



MOV 

RO,-(SP) 

SAVE RO 

035236 

005000 



CLR 

RO 

PICKUP THE ITEM INDEX 

035240 

153700 

001130 


BISB 

a*$ITEM8,R0 


035244 

001004 



BNE 

1$ 

IF ITEM NUMBER IS ZERO, JUST 

TYPE THE PC OF THE ERROR 

035246 

013746 

001132 


MOV 

SERRPC.-(SP) 

SAVE SERRPC FOR TYPEOUT 

ERROR ADDRESS 

035252 

104402 



TYPOC 


GO TYPE-OCTAL ASCII (ALL DIGITS) 

035254 

000437 



BR 

6$ ; 

GET OUT 

035256 

122700 

000177 


IS: CMPB 

# 177.R0 

1000$ 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 

035262 

001006 



BNE 

BRANCH IF NOT 

035264 

013737 

001212 

035546 

MOV 

STESTN.PFTSTN ; 

GET TEST NUMBER 

035272 

012700 

035406 


MOV 

fPFECH.RO 

MOVE PO^ER FAIL ERROR CALL TABLE TO RO 

035276 




BR 

1001$ 

BRANCH TO CALL ERROR 

035300 

005300 



1000$: DEC 

RO 

ADJUST THE INDEX SO THAT IT WILL 

035302 

■Vt-KVl 



ASl 

RO 

WORK FOR THE ERROR TABLE 

035304 




ASL 

RO 


035306 

006300 



ASL 

RO 


035310 

062700 

003370 


ADD 

#$ERRTB,RC 

; r ORM TABLE POINTER 

035314 

012037 

035324 


1001$: MOV 

(RO )+.2i 

.-PICKUP "ERROR MESSAGE" POINTER 

035320 

001404 



BEO 

3$ 

.SKIP TYPEOUT IF NO POINTER 
.-TYPE THE "ERROR MESSAGE" 

;*IRROR MESSAGE" POINTER GOES HERE 
."CARRIAGE RETURN" t *1INE FEED" 

035322 

104401 



TYPE 


035324 

I*X*X*I*1 



2$: .WORD 

0 

035326 

104401 

001203 


TYPE 

,$CRLF 

035332 

012037 

035542 


3$: MOV 

<R0)*.4$ 

.PICKUP ’DATA HEADER" POINTER 

035336 

001404 



BED 

5$ 

.-SKIP TYPEOUT IF 0 

035340 

104401 



TYPE 


.TYPE THE *t>ATA HEADER" 

.-‘•DATA HEADER" POINTER GOES HERE 
‘CARRIAGE RETURN" t ’IINE FEED" 

035342 

f'X'I'I'I'l 



4$: .WORD 

0 

035344 

104401 

001203 


TYPE 

.SCRLF 

035350 

011000 



5$: MOV 

TROMO 

.•PICKUP ’DATA TABLE" POINTER 

035352 

001004 



BNE 

7$ 

;GQ TYPE THE DATA 

035354 

012600 



6$: MOV 

CSPH.RO 

; RESTORE RO 

035356 

104401 

0oi203 


TYPE 

,$CRL* 

.-••CARRIAGE RETURN" t 'IINE FEED" 

035362 

000207 



RTS 

h 

.'RETURN 

035364 




7$: 



035364 

013046 



MOV 

i(RO)+,~(SP) 

.-SAVE 8(R0)* FOR TYPEOUT 

035366 

104402 



TYPOC 


;G0 TYPE— OCTAL ASCII (ALL DIGITS) 

035370 

005710 



TST 

(RO) 

;IS THERE ANOTHER NUMBER? 

035372 

001770 



BEO 

6$ 

;BR IF NO 

035374 

104401 

035402 


TYPE 

,8$ 

.•TYPE TW0(2) SPACES 

035400 

000771 



BR 

H 

.LOOP 

035402 

040 

040 

COO 

8$: .ASCIZ 

.EVEN 
PFECH: PFECH1 

/ / ; 

;TW0(2) SPACES 

035406 

035416 

035500 

035532 

,PFECH2,PFECH3,PFECH4 ;;W0RDS DEFINING TABLES BELOW 

035416 

120 

117 

127 

PFE CHI : .ASCIZ 

? POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 

035500 

124 

105 

123 

PFECH2: .ASCIZ 
.EVEN 
PFECH3: .WORD 

7TESTN0 ERR PC 

CPUERREG? 

035532 

035546 

001132 

035224 

PFTSTN,$ERRPC,CPSAVE.O 
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SEQ 0160 


035542 000 000 000 PFECH4: .BYTE 0,0, 0,0 

035546 000000 PFTSTN: .WORD 0 


;; CONTAINS TEST NUMBER FOR PF BIT ERROR 


SEQ 0161 
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.SBTTL TYPE ROUTINE 


035550 

035554 

035556 

035560 

035562 

035564 

035570 

035576 

035600 

035606 

035610 

035614 

035620 

035622 

035630 

035632 

035634 

035636 

035640 

035642 

035646 

035650 

035654 

035656 

035662 

035664 

035666 

035670 

035672 

035676 

035700 

035704 

035710 

035712 

035716 

035722 

035724 

035730 

035734 


^ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE UIU INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


•N0TE1 

•N0TE2 

•N0TE3 


SNULl CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REOUIRED. 

SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


•CALL: 

*1) USING A TRAP INSTRUCTION 
* TYPE .MESADR 


105737 

100002 

000000 

000430 

010046 

017600 

122737 

G01011 

132737 

001405 

010037 

004737 

000000 

132737 

001003 

112046 

001005 

005726 

012600 

062716 

000002 

122716 

001430 

122716 

001006 

005726 

104401 

001203 

105037 

000755 

004737 

123726 

001350 

013746 

105366 

002770 

004737 

105337 

000770 


001173 


000002 

000001 001226 

000100 001227 

03S620 

036564 

000040 001227 


000002 

000011 

000200 


036100 

035762 

001172 

001170 

000001 

035762 

036100 


;* 

TYPE 


;• 

;• 

MESADR 


STYPE: 

TSTB 

STPFLG 


BPL 

HALT 

IS 


BR 

3$ 

IS: 

MOV 

RO.-(SP) 


MOV 

82 (SP). RO 


CMP8 

#APTENV.$ENV 


BNE 

62$ 


81 TB 

YAP T SPOOL . SE N VM 


6EQ 

62$ 


MOV 

R0.61S . 


JSR 

PC.SATY3 

61 S: 

.WORD 

0 

62$: 

81 TB 

fAPTCSUP.SENVM 


BNE 

60S 

2$: 

MOV® 

(R0)*.-(SP) 


BNE 

4$ 


TST 

(SP)* 

60S: 

MOV 

(SP )*, RO 

3$: 

ADD 

RTI 

#2,(SP) 

4$: 

CMPB 

#HT,(SP> 


BEO 

8$ 


CMPe 

fCRLF.CSP) 


BNE 

5$ 


TST 

TYPE 

SCRLF 

(SP)* 


CLRB 

SCHARCNT 


BR 

2$ 

5$: 

JSR 

PC.STYPEC 

6$: 

CMPB 

sfIllc, (SP>* 


BNE 

2$ 


MOV 

SNULL. -(SP) 

7$: 

DECS 

I'SP) 


BLT 

6$ 


JSR 

PC.STYPEC 


DECS 

SCHARCNT 


BR 

7$ 


; ; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 


IS THERE A TERMINAL? 

8R IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO. GO CHECK FOR APT CONSOLE 

SP60L MESSA6E TO APT 

NO, GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 

SPOOL MESSA6E TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES. SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 


; .'BRANCH IF NOT <CRLF> 

;;POP <CRXLF> EQUIV 
;;TYP£ A CR AND LF 

-CLEAR CHARACTER COUNT 
;;6ET NEXT CHARACTER 
;;60 TYPE THIS CHARACTER 
;;IS IT TIME FOR FILLER CHARS.? 

;;IF NO GO GET NEXT CHAR. 

;;GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 

;;D0ES A NULL NEED TO BE TYPED? 

;;8R IF NO— 60 POP THE NULL OFF OF STACK 

;;G0 TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 

;;LOOP 
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.'HORIZONTAL TAB PROCESSOR 


035736 

035742 

G35746 

035754 

035756 

035760 

035762 

035762 

035766 

035770 

035774 

036000 

036004 

036006 

036006 

036012 

036014 

C36020 

036024 

036030 

036032 

036032 

036034 

036034 

036040 

036042 

036050 

036056 

036060 

036064 

036066 

036074 

036076 

036100 

036102 


112716 

004737 

132737 

001372 

005726 

000724 

105777 

100022 

017746 

042716 

122716 

001012 

105777 

100375 

117716 

042716 

122716 

001366 

005726 

105777 

100375 

116677 

122766 

001003 

105037 

000406 

122766 

001402 

105227 

000000 

000207 


000040 

035762 

000007 


143172 

143166 

177600 

000023 


143146 

143142 

177600 

000021 


143124 

000002 

000015 

036100 


8$: nova 

9$: JSR 

036100 BITS 

BNE 
TST 
BR 

$TYPEC: 

TSTB 


101 $: 


102 $: 


TSTB 

BPL 

H0V8 

BJC 

CHPB 

BNE 


143116 

000002 


000012 000002 1$: 


TSTB 

BPL 

H0V8 

CHP8 

BNE 

CLR8 

BR 

1$: CHPB 

BEQ 
INC® 

$CHARCNT:.UORD 

$TYPEX: RTS 


#’ .(SP) 
PC.STYPEC 
#7.$CHARCNT 
9$ 

(SP)* 

2 $ 

i$TKS 

10 $ 

B$TKB.-(SP) 
#1 77600. (SP) 
#$XOFF . (SP) 
102 $ 

i$TKS 

101 $ 

WTKB.(SP) 

#1 77660. (SP) 
#$XON. (SP) 
101$ 

(SP)* 

b$tps 

10 $ 

2(SP). a$TPB 
#CR,2(SP) 

1 $ 

$CHARCNT 

$TYPEX 

#LF,2(SP) 

$TYPEX 

(PC)* 

0 

PC 


SEO 0162 


; .REPLACE TAB WI T H SPACE 
.'.TYPE A SPACE 
.'.•BRANCH IF NOT AT 
.'.'TAB STOP 

;;POP SPACE OFF STACK 
;;GET NEXT CHARACTER 

.'.'CHAR IN KYBD BUFFER’ 
;;BR IF NOT 
;;GET CHAR 

;.* STRIP EXTRANEOUS BITS 
;;WAS CHAR XOFF 
; ;8R IF NOT 

.'.'WAIT FOR CHAR 


;;GET CHAR 
;; STRIP IT 
; ; WAS IT XON? 
.-.BR IF NOT 


;;FIX STACK 


; .’WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DAT* REG. 
;;IS CHARACTER A CARRIAGE RETURN? 
.-.'BRANCH IF NO 
;; YES— CLEAR CHARACTER COUNT 

;;CXIT 

;; IS CHARACTER A LINE FEED? 

.'.BRANCH IF YES 

,*; COUNT THE CHARACTER 

.'.♦CHARACTER COUNT ST0RA6E 
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SEQ Olfcj 


CZRNAAG 

BINARY 
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.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 


036104 

036110 

036116 

036122 

036126 

036130 

036136 

036144 

036152 

036154 

036156 

036160 

036164 

036166 

036172 

036176 

036202 

036206 

036210 

036212 

036214 

036216 

036220 

036222 

036224 

036226 

036232 

036234 

036240 

036242 

036244 

036246 


017646 

116637 

112637 

062716 

000406 

112737 

112737 

112737 

010346 

010446 

010546 

113704 

005404 

062704 

110437 

113704 

016605 

005003 

006105 

000404 

006105 

006105 

006105 

010503 

006103 

105337 

100016 

042703 

001002 

005704 

001403 

005204 


•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. „ 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

* lALL: MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

• TYPOS ;;CALL FOR TYPEOUT 

* .BYTE N ;;N*1 TO J FOR NUMBER OF DIGITS TO TYPE 


.BYTE 


,-;M*1 OR 


;;1=TYPE LEADING ZEROS 
;;0*$UPPRESS LEADING ZEROS 


* 

* 

•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 

i CALL: MOV NUM.-(SP) .-.-NUMBER TO BE TYPED 

• TYPON .-.-CALL FOR TYPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

i CALL ' MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

* TYPOC ;.*CALL FOR TYPEOUT 


000000 


STYPOS: MOV 

000001 

036327 

MOVB 

036331 


MOVB 

000002 


ADD 

BR 

000001 

036327 

STYPOC: MOVB 

000006 

036331 

MOVB 

000005 

036326 

STYPON: MOVB 
MOV 
MOV 
MOV 

036331 


MOVB 

NEG 

000006 


ADD 

036330 


MOVB 

036327 


MOVB 

000012 


MOV 

CLR 

IS: ROL 

BR 

2S: ROL 

ROL 


036330 

177770 


3S: 


4S: 


ROL 

MOV 

ROL 

DECB 

BPL 

BIC 

BNE 

TST 

BEO 

INC 


a (SP).-(SP) 

1 (SP) .SOFILL 
(SP) ♦.SOMODE^I 
#2.<SP> 

STYPON 

#1 .SOFILL 

#6.S0M0DE*1 

#5.S0CNT 

R3.-(SP) 

R4.-(SP) 

R5,-(SP) 

SOMODE+1 ,R4 

R4 

#6,R4 

R4.S0M0DE 

SOFILL. R4 

12(SP).R5 

R3 

R5 

R5 

R5 

R5 

R5.R3 

R3 

SOMODE 

7S 

#1 77770. R3 

41 

R4 

5S 

R4 


.-.-PICKUP THE MODE 
.-.-LOAD ZERO FILL SWITCH 
;. -NUMBER OF DIGITS TO TYPE 
; .-ADJUST RETURN ADDRESS 

.-.-SET THE ZERO FILL SWITCH 
.-.-SET FOR SIX(6) DIGITS 
;;SET THE ITERATION COUNT 
.-.-SAVE R3 
.-.-SAVE R4 
* ‘SAVE R5 

;;6ET THE NUMBER OF DIGITS TO TYPE 

;. -SUBTRACT IT FOR MAX. ALLOWED 
.-.-SAVE IT FOR USE 
.-.GET THE ZERO FILL SWITCH 
;. PICKUP THE INPUT NUMBER 
.-.-CLEAR THE OUTPUT WORD 
;. -ROTATE MSB INTO "C" 

;;G0 DO MSB 
.-.-FORM THIS DIGIT 


;;GET LS8 OF THIS DIGIT 
.-.-TYPE THIS DIGIT? 

,*;BR IF NO 
;;GET RID OF JUNK 
.-.-TEST FOR 0 
;; SUPPRESS THIS 0? 

;;BR IF YES 

; .-DON'T SUPPRESS ANYMORE O’S 


f 




SEO 0164 


.MAKE THIS DIGIT ASCII 

.-MAKE ASCII If NOT ALREADY 

•SAVE FOR TYPING 

;G0 TYPE THIS DIGIT 

.•COUNT BY 1 

;BR IF MORE TO DO 

;BR IF DONE 

.•INSURE LAST DIGIT ISN'T A BLANK 
;G0 DO THE LAST DIGIT 
.RESTORE R5 
RESTORE R4 

■RF^TOAF R* 

•SET THE STACK FOR RETURNING 
•RETURN 

; STORAGE FOR ASCII DIGIT 
.TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 



SEO O't 
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.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


036332 

036332 

036334 

036336 

036340 

036342 

036344 

036350 

036354 

036356 

036360 

036366 

036370 

036374 

036400 

036402 

036406 

036410 

036412 

036414 

036416 

036420 

036422 

036424 

036426 

036430 

036432 

036434 

036442 

036446 

036452 

036454 

036456 

036462 

036464 

036466 

036470 

036472 

036474 

036476 

036504 

036506 

036510 

036512 

036514 


010046 

010146 

010246 

010346 

010546 

012746 

016605 

100004 

005405 

112766 

005000 

012703 

112723 

005002 

016001 

160105 

002402 

005202 

000774 

060105 

005702 

001002 

105716 

100407 

106316 

103003 

116663 

052702 

052702 

110223 

005720 

020027 

002746 

003002 

010502 

000764 

105726 

100003 

116663 

105013 

012605 

012603 

012602 

012601 


177777 177776 


9$: 


MOVB 

CLRB 

MOV 

NOV 

MOV 

MOV 


•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DI6IT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 

;;PUT THC BINARY NUMBER ON THE STACK 
; ; GO TO THE ROUTINE 

;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R5 ON STACK 
; ; SET BLANK SWITCH AND S!GN 
;;GET THE INPUT NUMBER 
.*;BR IF INPUT IS POS. 

; .‘MAKE THE BINARY NUMBER POS. 

;;MAKE THE ASCII NUMBER NEG. 

;;ZERO THE CONSTANTS INDEX 
;; SETUP THE OUTPUT POINTER 
;;SET THE FIRST CHARACTER TO A BLANK 
; .-CLEAR THE BCD NUMBER 
;;GET THE CONSTANT 
;;FORM THIS BCD DIGIT 
. |p poNE 

;; INCREASE THE BCD DIGIT BY 1 

; ;ADD BACK THE CONSTANT 
; .CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF 0 
; .-STILL DOING LEADING O'S? 

;;8R IF YES 
;;MSD? 

,*.*BR IF NO 
;; YES— SET THE SIGN 
;;MAKE THE BCD DIGIT ASCII 
;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
;;JUST INCREMENTING 
;; CHECK THE TABLE INDEX 
;;G0 DO THE NEXT DIGIT 
;;60 TO EXIT 
;;GET THE LSD 
; ; GO CHANGE TO ASCII 
;;WAS THE LSD THE FIRST NON-ZERO? 

* *BR IF NO 

;; YES— SET THE SIGN FOR TYPING 
;;SET THE TERMINATOR 
;;POP STACK INTO R5 
;;POP STACK INTO R3 
; ;POP STACK INTO R2 
;;POP STACK INTO R1 



.■•CALL: 


NUM.-(SP) 


• * 

MOV 


• * 

9 

TYPDS 



STYPDS: 

MOV 

RO.-(SP) 



MOV 

RI.-(SP) 



MOV 

R2.-(SP) 



MOV 

R3.-(SP> 

020200 


MOV 

MOV 

R5.-CSP) 
#26200. -(SP) 

000020 


MOV 

20(SP).R5 


BPL 

IS 



NEG 

R5 

000055 

000001 

MOVB 

#’-.1(SP) 


IS: 

CLR 

RO 

036546 


NOV 

#SD8LK.R3 
#• , (R3) ♦ 

000040 


MOVB 

2S: 

CLR 

R2 

036536 

MOV 

SDTBL(RO) ,R1 

3S: 

SUB 

R1.R5 



BLT 

4S 



INC 

R2 



BR 

3S 


4$: 

ADD 

R1.R5 



TST 

R 2 



BNE 

5S 



TSTB 

(SP) 



BMI 

7S 


5$: 

ASL6 

(SP) 



BCC 

6$ 

000001 

i 77777 

MOVB 

1(SP) .-1(R3> 
#'0.R$ 

000060 

6$: 

BIS 

000040 

7$: 

BIS 

#* ,R2 


MOVB 

R2.(R5)* 



TST 

<r6>* 

000010 


CMP 

RO.flO 


BLT 

2S 



BGT 

8$ 



MOV 

R5.R2 



BR 

6S 


81: 

TSTB 

(SP)* 



BPL 

VS 


-1 (SP). -2(R3) 
(R3) 

(SP)*.R5 
(SP)*, R3 
(SP)*,R2 
(SP)*, R1 



K 13 



SEO 0166 


; ; POP STACK INTO RO 
; ; NOW TYPE THE NUMBER 
; .-ADJUST THE STACK 

; .RETURN TO USER 
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SEQ 0167 

1 APT COMMUNICATIONS ROUTINE 

1 











.S8TTL 

APT COMMUNICATIONS ROUTINE 

036556 

112737 

000001 

037022 

iATYl: 

M0V8 

#1 ,$FFLG 

• 

TO REPORT FATAL ERROR 

036564 

112737 

000001 

037020 

SATY3: 

movb 

#1,$MFLG 

SATYC 

• 

TO TYPE A MESSAGE 

036572 

000403 




BR 



036574 

112737 

000001 

037022 

$ATY4: 

MOVB 

#1 ,$FFLG 


TO ONLY REPORT FATAL ERROR 

036602 

036602 

010046 



$ATVC : 

MOV 

RO.-(SP) 

• 

• # 

PUSH RO ON STACK 

036604 

010146 




MOV 

RI.-(SP) 

• 

PUSH R1 ON STACK 

036606 

105737 

037020 



TST8 

$MFLG 


SHOULD TYPE A MESSAGE? 

036612 

001450 




8E0 

5$ 


IF NOT: BR 

036614 

122737 

000001 

001226 


CMP8 

#APTENV,$ENV 

• 

OPERATING UNDER APT? 

036622 

001031 




BNE 

3$ 


IF NOT: BR 

036624 

132737 

000100 

001227 


SITS 

AAPTSPOOL ,$ENVM 

« 

SHOULD SPOOL MESSAGES? 

036632 

001425 




BEQ 

3$ 

• 

IF NOT: BR 

036634 

017600 

000004 



MOV 

84 (SP) ,R0 

• 

GET MESSAGE ADDR. 

036640 

062766 

000002 

000004 


ADO 

#2.4(SP> 


; ;8UMP RETURN ADDR. . 

■SEE IF DONE W/ LAST XMISSION? 

036646 

005737 

001206 


1$: 

TST 

$MSGTYPE 

• 

036652 

001375 




BNE 

1$ 


;IF NOT: WAIT 

036654 

010037 

001222 



MOV 

RO.SMSGAD 

(RO)* 


■PUT ADDR IN MAILBOX 

036660 

105720 



2$: 

TSTB 

• 

; FIND END OF MESSAGE ! 

036662 

001376 




BNE 

2$ 


i 

036664 

163700 

001222 



SUB 

SMSGAD.RO 


;SUB START OF MESSAGE ( 

036670 

006200 




ASR 

RO 


; GET MESSAGE LNGTH IN WORDS 1 

036672 

010037 

001224 



MOV 

RO.SMSGLGT 

• 

;PUT LENGTH IN MAILBOX 

036676 

012737 

000004 

001206 


MOV 

#4, SMSGTYPE 


;TELL APT TO TAKE MSG. 

036704 

000413 




BR 

5$ 



036706 

017637 

000004 

036732 

3$: 

MOV 

84(SP) ,4$ 

• 

;PUT MSG ADDR IN JSR LINKAGE 

036714 

062766 

000002 

000004 


ADD 

#2.4(SP) 


;;BUMP RETURN ADDRESS 

036722 

013746 

177776 



MOV 

17^776, -(SP) 

• 

;f*USH 177776 ON STACK 

036726 

004737 

035550 



JSR 

PC. STYPE 


;CALL TYPE MACRO 

036732 

000000 



4$: 

.WORD 

0 



036734 




5$: 




j 

036734 

105737 

037022 


10$: 

TSTB 

SFFLG 

• 

SHOULD REPORT FATAL ERROR? 1 

036740 

001416 




BEQ 

12$ 


IF NOT: BR 

036742 

005737 

001226 



TST 

SENV 

• 

RUNNING UNDER APT? 1 

036746 

001413 




BEQ 

12$ 


IF NOT: BR , 

036750 

005737 

001206 


11$: 

TST 

SMSGTYPE 

• 

• 

FINISHED LAST MESSAGE? 

036754 

001375 




BNE 

11$ 

• 

IF NOT: WAIT 

036756 

017637 

000004 

001210 


MOV 

84CSP) .SFATAL 

• 

GET ERROR # 

036764 

062766 

000002 

000004 


ADD 

#2.4(SP) 


;;8UMP RETURN ADDR. 

TELL APT TO TAKE ERROR 

036772 

005237 

001206 



INC 

SMSGTYPE 

• 

036776 

105037 

037022 


12$: 

CLRB 

SFFLG 

« 

CLEAN FATAL FLAG 

037002 

105037 

037021 



CLRB 

SLFLG 

• 

CLEAR LOG FUG 

037006 

105037 

037020 



CLRB 

SMFLG 

• 

CLEAR MESSAGE FLAG 

037012 

012601 




MOV 

(SP)*, R1 

» 

POP STACK INTO R1 

037014 

012600 




MOV 

(SP)*, RO 


POP STACK INTO RO i 

037016 

000207 




RTS 

PC 


RETURN 

037020 

000 



$MFLG: 

.BYTE 

0 

• 

MESSG. FLAG 

037021 

000 



$LFLG: 

.BYTE 

0 

• 

LOG FLAG 

037022 

000 



SFFLG: 

.BYTE 

.EVEN 

0 

• 

FATAL FLAG 


000200 



APTSJZE 

= 200 





000001 



APTENV 

= 001 





000100 



APTSP00L= 100 





000040 



APTCSUP 

= 040 
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RANDOM NUMBER GENERATOR ROUTINE 


SEQ 0168 


.SBTTL RANDOM NUMBER GENERATOR ROUTINE 


037024 

037024 

037026 

037030 

037032 

037036 

037042 

037046 

037050 

037052 

037054 

037056 

037062 

037064 

037070 

037074 

037076 

037102 

037106 

037112 

037114 

037116 

037120 

037122 

037124 


VTHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
•WITH A RANGE OF 0 TO 2M33M1. 


•CALL: 

* 


010046 

010146 

010246 

013700 

013701 

012702 

006300 

006101 

005202 

001374 

063700 

005501 

063701 

062700 

005501 

062701 

010037 

010137 

012602 

012601 

012600 

000207 

176543 

123456 


037124 

037122 

177771 


037124 

037122 

001057 

C47401 

037124 

037122 


JSR 

RETURN 


SRAND: 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

IS: ASL 

ROL 
INC 
BNE 
ADD 
ADC 
ADD 
ADD 
ADC 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 

SHINUM: .WORD 

SLONUM: .WORD 


PC. SRAND 


RO.-(SP) 

RI.-(SP) 

R2.-($P) 

SLONUM.RO 

SHINUM. R1 

#-7,R2 

RO 

R1 

R2 

IS 

SLONUM.RO 

R1 

SHINUM. R1 
#1057. RO 
R1 

#47401 ,R1 

RO.SLONUM 

IT 1, SHINUM 

(SPM.R2 

(SPM.R1 

(SPJ+.RO 

PC 

176543 

123456 


CALL THE ROUTINE 
RETURN HERE THE RANDOM 
NUMBER WILL BE IN 
SHINUM. SLONUM 


PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

SET RO WITH LOW 

SET R1 WITH HIGH 

SET SHIFT COUNT 

SHIFT RO LEFT AND 

ROTATE CARRY IN*0 R1 AND 

CHECK FOR DONE 

CONTINUE SHIFT LOOP 


ADD NUMBER TO .V 
PROPOGATE CARR 
ADD NUMBER TO Iv* 
ADD LOW CONSTANT 
PROPOGATE CARRY 
ADD HIGH CONSTANT 
SAVE RO 

c*uc PI 

POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 


V 129 
k 129 


i 



SEQ 0169 
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SAVE AND RESTORE R0-R5 ROUTINES 


N 1] 


037126 

037126 

037130 

037132 

037134 

037136 

037140 

037142 

037146 

037152 

037156 

037162 


037164 

037164 

037170 

037174 

037200 

037204 

037206 

037210 

037212 

037214 

037216 

037220 




.S8TTL SAVE AND RESTORE R0-R5 

•A*************************** 

•SAVE R0-R5 
•CALL: 

• SAVREG 

•UPON RETURN FROM SSAVREG THE 

* 

• TOP (+16) 

* +2 — (+18) 

* +4 — R5 

* +6 — R4 

* +8 — R3 
•+10 — R2 
*+12 — R1 
•+14 — RO 

(SAVREG: 

010046 


MOV 

RO.-(SP) 

010146 


MOV 

RI.-(SP) 

010246 


MOV 

R2.-(SP) 

010346 


MOV 

R3, -(SP) 

010446 


MOV 

R4,-(SP) 

010546 


MOV 

R5,-(SP) 

016646 

000022 

MOV 

22(SP),-(SP) 

016646 

000022 

MOV 

22($P).-(SP) 

016646 

000022 

MOV 

22(SP).-( SP) 

016646 

000002 

000022 

MOV 

RTI 

; ‘RESTORE R0-R5 
;*CALL: 

;* RESREG 

SRESREG: 

22($P).-(SP) 

012666 

000022 

MOV 

(SP)+.22(SP) 

012666 

000022 

MOV 

(SP)+. 22(SP) 

012666 

000022 

MOV 

(SP)+.22(SP) 

012666 

000022 

MOV 

(SP)+.22(SP) 

012605 


MOV 

(SP) +.R5 

012604 


MOV 

(SP)+. R4 

012603 


MOV 

(SP)+.R3 

012602 


MOV 

(SP)+.R2 

012601 


MOV 

(SP)+.R1 

012600 

000002 


MOV 

RTI 

(SP)+.RO 


ROUTINES 


STACK WILL LOOK LIKE: 


;PUSH RO ON STACK 
;PUSH R1 ON STACK 
.•PUSH R2 ON STACK 
.-PUSH R3 ON STACK 
;PUSH R4 ON STACK 
;PUSH R5 ON STACK 
.SAVE PS OF MAIN FLOW 
;SAVE PC OF MAIN FLOW 
; SAVE PS OF CALL 
.•SAVE PC OF CALL 


RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 


B 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

.S8TTL DOUBLE LEN6TH BINARY 1 


•THIS ROUTINE WILL CONVERT A 
•DECIMAL (ASCII) NUMBER. THE 
•POSITIVE. 

•CALL 

• MOV #PN TR.-(SP) 

• JSR PC.8#iDB2D 

• RETURN 


037222 104412 
037224 016602 000002 
037230 012700 037402 
037234 010066 000002 
037240 012201 
037242 012202 

037244 012737 000012 037320 

037252 012704 037332 

037256 012705 037334 

037262 005003 

037264 161401 

037266 005602 

037270 161502 

037272 002402 

037274 005203 

037276 000772 

037300 062401 

037302 005502 

037304 062402 

037306 022525 

037310 052703 000060 

037314 110320 

037316 005327 

037320 000000 

037322 001357 

037324 105020 

037326 104413 

037330 000207 

037332 145000 

037334 035632 

037336 160400 

037340 002765 

037342 113200 

037344 000230 

037346 041100 

037350 000017 

037352 103240 

037354 000001 

037356 023420 

037360 000000 

037362 001750 

037364 000000 

037366 000144 

037370 000000 


$D82D: SAVRE6 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

IS: CLR 

21: SUB 

SBC 
SUB 
BLT 
INC 
BR 

3$: ADD 

ADC 
ADD 
CMP 
BIS 
HOVB 
DEC 

4$: .WORD 

BNE 
CLR8 
RESREG 
RTS 

STNPWR: 145000 
35632 
160400 
2765 
113200 
230 
041100 
17 

103240 

1 

23420 

0 

1750 

0 

144 

0 


2(SP).R2 

#SDECVL.RO 

R0.2(SP) 

(R2>*.R1 

(R2)+.R2 

#10.. 4S 

#STNPWR,R4 

#STNPVR*2.R5 

R3 

(R4).R1 
R 2 

(R5J.R2 

3$ 

R3 

2 $ 

(R4)+.R1 

R2 

(R4J+.R2 

(R5)*.(R5>* 

#’0.R3 

R3.(R0)* 

(PC)* 

0 

IS 

<R0> + 


SEQ 0170 





C H 


SEO 0171 


;;1.0E01 
; ; 1 . 0E00 

; .’RESERVE STORAGE FOR ASCI 2 STRING 


0 u 


SEQ 0172 
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'double length binary to octal ascii convert routine 


.SBTTL DOUBLE LENGTH BINAPY TO OCTAL ASCII CONVERT ROUTINE 


•THIS ROUTINt WILL CONVERT A 
•UNSIGNED OCTAL ASCIZ NUMBER 
• CALL 

#PNTR.-(SP) 
PC,a#$DB20 


MOV 

JSR 

RETURN 


32-81 T UNSIGNED BINARY NUMBER TO AN 


; .-POINTER TO LOW WORD OF BINARY NUMBER 
; ; CALL THE ROUTINE 

; ; THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 


037416 

037420 

037424 

037430 

037434 

037440 

037442 

037444 

037446 

037450 

037452 

037454 

037456 

037460 

037462 

037466 

037470 

037472 

037474 

037476 

037500 

037502 

037504 

037506 

037510 

037512 

037516 

037520 


104412 

016601 

012705 

012704 

012703 

012100 

012101 

005002 

110245 

010002 

005304 

003007 

001405 

005205 

010566 

104413 

000207 

006203 

006001 

006000 

006001 

006000 

006001 

006000 

040302 

062702 

000753 


000002 

037535 

000014 

177770 


000002 


000060 


$0620: SAVREG 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 

1$: MOVB 

MOV 
DEC 
BGT 
BEQ 
INC 
MOV 
RESREG 
RTS 

2S: ASR 

31: ROR 

ROR 
ROR 
ROR 
ROR 
ROR 
BIC 
ADD 
BR 

SOCTVL: .BLKB 


2<SP>. R1 „ 

#IOCTVL+13.,R5 

#12. ,R4 

i A C7,R 3 

<R1)*,R0 

(Rm.Rl 

R2 

R2.-CR5) 

RO. R2 

R4 

3$ 

2S 

R5 

R5.2CSP) 

PC 

R3 

R1 

RO 

R1 

RO 

R1 

R?.R2 

#’6,R2 

IS 

14. 


;;SAVE ALL REGISTERS 
; .-PICKUP THE POINTER TO LOW WORD 
;; POINTER TO DATA TABLE 
;;D0 ELEVEN CHARACTERS 
.-.MASK 

;; LOWER WORD 
;;HIGH WORD 
;; TERMINATOR 

;;PUT CHARACTER IN DATA TABLE 

;;GET THIS DIGIT 

;; COUNT THIS CHARACTER 

;;8R IF NOT THE LAST DIGIT 

;;8R IF IT IS THE LAST DIGIT 

; .-ALL DIGITS DONE-ADJUST POINTER FOR FIRST 

; .-ASCIZ CHAR. S PUT IT ON THE STACK 

; .-RESTORE ALL REGISTERS 

;.- RETURN TO USER 

; .-POSITION THE MASK FOR THE LAST DIGIT 
.-.-POSITION THE BINARY NUMBER FOR 
;; THE NEXT OCTAL DIGIT 


;;MASK OUT ALL JIMK 
.-.-MAKE THIS CHAR. ASCII 
;;G0 PUT IT IN THE DATA TABLE 
; .-RESERVE DATA TABLE 



SEQ 0173 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PA6E 51 
POWER DOWN AND UP ROUTINES 


E K 


037536 

037544 

037552 

037554 

037556 

037560 

037562 

037564 

037566 

037572 

037576 

037604 

037606 


037610 

037616 

037622 

G37626 

037632 

037634 

037640 

037642 

037646 

037650 

037652 

037654 

037656 

037660 

037662 

037670 

037676 

037700 

037702 

037704 

037706 

037710 

037712 

03^714 

2 037716 

3 037720 

4 

5 

6 

7 

8 


012737 

012737 

010046 

010146 

010246 

010346 

010446 

010546 

017746 

010637 

012737 

000000 

000776 


012737 

013706 

005037 

005237 

001375 

005337 

003775 

012677 

012605 

012604 

012603 

012602 

012601 

012600 

012737 

012737 

104401 

037720 

012716 

037736 

000002 

000000 

000776 

000000 

000000 

200 


037710 

000340 


141362 

037714 

037610 


037710 

037714 

037714 

037714 

037716 

141306 


.S8TTL POWER DOWN AND UP ROUTINES 


000024 

000026 


000024 


000024 


:f>OWER DOWN ROUTINE 
iPWRDN: MOV #SILLUP.a#PWRVEC 
#340.i#PWRVEC*2 
RO.-(SP) 

R1,-(SP) 

R2.-(SP) 

R3.-CSP) 

R4.-(SP) 

R5.-(SP) 
aSWR.-(SP) 
SP.SSAVR6 
#$PWRUP.a#PWRVEC 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 


;;SET 

;PRIO: 

.-PUSH 

.-PUSH 

.-PUSH 

.•PUSH 

.•PUSH 

;P JSH 

.•PUSH 

.‘SAVE 

;;SET 


FOR FAST UP 
7 

RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
3SWR ON STACK 
SP 

UP VECTOR 


.-2 


; ;HAN6 UP 


;POWER 

SPWRUP 


IS: 

2 $: 


UP ROUTINE 


037536 

000340 


000024 

000026 


042 


120 


MOV 
MOV 
CLR 
INC 
BNE 
DEC 
BLE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
.WORD 
MOV 
.WORD 
RTI 
HALT 
BR 
0 

.WORD 

•ASCIZ 


fSILLUP.MPURVEC ;;SET FOR FAST DOWN 


SSAVR6.SP 

SSAVR6 

SSAVR6 

IS 

PWRFLG 

2S 

(sp) *,aswa 
(SP>*. R5 
(SP)*. R4 
(SP)*,R3 
(SP)*,R2 
(SP)*, R1 
(SP) *.R0 


\ 0 0 * v* #irr 

#SPWRDN,a#PWRV£C ;;SET \P 
f340,atPWRVEC*2 ;;PRI0:7 


;;6ET SP 
.-.WAIT LOOP FOR THE TTY 
.‘.WAIT FOR THE INC 
;;0F WORD 

.•WAIT AND SET POWER FAIL FLAG 
.WAIT FOR FLA 6* 1 
..POP STACK INTO iSWR 
;;POP STACK INTO R5 
;;POP STACK INTO R4 
.‘.POP STACK INTO R3 
;;POP STACK INTO R2 
;;POP STACK INTO R1 
;;POP STACK INTO RO 


THE POWER DOW VECTOR 


SPOWER 

(PC)*.(SP) 

SATPOW 


.-2 


SPWRMG: 

SPWRAD: 

SILLUP: 

SSAVR6: 

PW.5-LG: 

SPOWER: 

.EVEN 

.•POWER UP ROUTINE .WAIT TWO MINUTES. 
.-THEN AUTO STARTS AT SIZMEM 


<CRLF>/‘ POWER UP /<CRLF> 


;;REPORT THE POWER FAILURE 
..POWER FAIL MESSA6E POINTER 
; .-RESTART AT SATPOW 
..RESTART ADDRESS 

; ; THE POWER UP SEOUENCE WAS STARTED 
;; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 

Indicates power fail occurred when set 


9 037738 

005227 

000000 

SATPOW: INC 

#0 

10 037742 

001375 


BNE 

.-4 

11 037744 

000005 


RESET 


12 037746 

^05037 

001350 

CLR 

SECOND 

13 037752 

005037 

001466 

CLR 

INTRVL*2 

14 037756 

005037 

177776 

CLR 

PS 


TTY LOOP. WAIT FOR INCREMENT 
OF WORD 

CLEAR THE WORLD 
RESET SECOND COUNT 
RESET THE INTERVAL COUNT 
CLEAR PSW 



K 


SEO 0174 


SETUP STACK POINTER 

MAKE SURE KEYBOARD INTERRUPT AND 

SYSTEM CLOCK ARE STILL ON. 

CLEAR THE 'CONTROL C' FLAG 
ANY DRIVES ASSIGNED ? 

gp | p "Q 

TYPE 'WAITING 2 MINUTES... TO START* 
CONTROI C INTERRUPT ? 

BR IF YES 

TWO MINUTES YET ? 

WAIT IF NOT 

FUDGE 200 START 

CLEAR UP THE QUE AND BUFFER 

ALL DONE ? 

BRANCH IF NOT 
LOOP BACK 
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1 .S8TTL TRAP DECODER 


SEO 0175 


040060 010046 
040062 016600 000002 
040066 005740 
040070 111000 
040072 006300 
040074 016000 040114 
040100 000200 


•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 


STRAP: NOV 
NOV 
TST 
NOVB 
ASL 
NOV 
RTS 


RO.-(SP) 

2<SP) ,R0 
-(RO) 

(RO).RO 

R° 

STRPAD(RO) ,RC 
RO 


SAVE RO 

GET TRAP ADDRESS 
BACKUP BV 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 


040102 011646 
040104 016666 000004 
040112 000002 


0s0114 

040116 

040120 

040122 

040124 

040126 


;;THIS IS USE TO HANDLE THE "GETPRI" NACAO 


000002 


STRAP2: NOV 


(SP).-(SP) 

4(SP),2(SP> 


040102 

035550 

036130 

036104 

036144 

036332 


040130 033716 


040132 

040134 

040136 

040140 

040142 

2 040144 

3 


033626 

034170 

034260 

037126 

037164 

032716 

000032 


HOVE THE PC DOWN 
HOVE THE PSW DOWN 
RESTORE THE PSW 


.SBTTL TRAP TABLE 


.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 


; ROUTINE 

iTRPAD: .WORD ITRAP2 


STYPE 

STYPOC 

JTYPOS 

STYPON 

STYPDS 

SGTSWR 

SCKSWR 

SRDCHR 

SRDLIN 

SSAVREG 

SRESREG 

SDSPLY 

STERH=.-STRPAD 


CALL*TYP£ 

CALL«TYPOC 

CALL*TYPOS 

CALL*TYPON 

CALL*TYPDS 


TRAP*1 (104401) TTY TVPEOUT ROUTINE 
TRAP*2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP*3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP*4( 104404) TYPE OCTAL NlflBER (AS PER LAST CALL) 
TRAP*5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 


TRAP+2( 104402) 
TRAPES (104403) 


CALL*GTSWR TRAP*6( 104406) GET SOFT-SWR SETTING 


CALL^CKSWR 
CALL *RDCHR 
CALL sRDLIN 
CALL*SAVR£G 
CALL-RESREG 
CALL*DISPLY 


TRAP*7( 104407) 
TRAP*10( 104410) 
TRAP+11 (104411) 
TRAP*12<104412) 
TRAP+1 5(104413) 
TRAP*14(104414) 


TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
SAVE R0-R5 ROUTINE 
RESTORE R0-R5 ROUTINE 
ROUTINE TO TYPE ERROR MESSAGES 
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SEQ 0176 


7 

17 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 
53 


54 

55 

56 

57 

58 

59 

60 
63 


64 

65 

66 

67 

68 

69 

70 
73 


.SBTTL SINGLE/DUAL PORT RH70/RH80 DRIVER (REV 0.17) 

.-COPYRIGHT (C) 1979.1981 
.-DIGITAL EOUIPHENT CORP. 

.-HAYNARD. HA 01754 
; AUTHOR ($): CHUCK HESS 
.-REVISED BY: HIKE LEAVITT 


.-STORAGE FOR RHOS. RHER1 AND RHER2 ON AN ERROR 
.-RHERRS * RHOS 
.-RMERRS+2 = RHER1 
.-RHERRS+4 * RHER2 

040146 000000 000000 000000 RHERRS: .WORD 0,0.0 

.-TABLE OF DRIVE ACTIVE INDICATORS <DRVACT*8 BYTES) 

;DRVACT*0 IF DRIVE IS IDLE 

;DRVACT>0 IF DRIVE IS ACTIVE WITH A COHHAND 

;DRVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


040154 

000 

DRVACT: .BYTE 

0 

.-DRIVE 0 

040155 

000 

.BYTE 

0 

.-DRIVE 1 

040156 

000 

.BYTE 

0 

.DRIVE 2 

040157 

000 

.BYTE 

0 

.‘DRIVE 3 

040160 

000 

.BYTE 

0 

.‘DRIVE 4 

040161 

000 

.BYTE 

0 

.‘DRIVE 5 

040162 

000 

.BYTE 

0 

.‘DRIVE 6 

040163 

000 

.BYTE 

0 

.‘DRIVE 7 


.-TABLE OF DRIVE STATUS INDICATORS (DRVSTA-8 BYTES) 

; DRVSTA*0 IF DRIVE IS OFFLINE OR NONEXSITENT 
;DRVSTA>0 IF DRIVE IS ONLINE 
;DRVSTA<0 IF DRIVE IS UNSAFE 


040164 

000 

DRVSTA: .BYTE 

0 

DRIVE 0 

040165 

000 

.BYTE 

0 

DRIVE 1 

040166 

000 

.BYTE 

0 

DRIVE 2 

040167 

000 

.BYTE 

0 

DRIVE 3 

040170 

000 

.BYTE 

0 

DRIVE 4 

040171 

000 

.BYTE 

0 

DRIVE 5 

040172 

000 

.BYTE 

0 

DRIVE 6 

040173 

000 

.BYTE 

0 

DRIVE 7 


.TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 

.-DRVTYPsO IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO) 
.-DRVTYPsI IF DRIVE IS RH80 
;DRVTVPs-1 IF NOT RH80 


040174 

000 


DRVTYP: .BYTE 0 

.DRIVE 0 

040175 

000 


.BYTE 0 

.DRIVE 1 

040176 

000 


.BYTE 0 

.-DRIVE 2 

040177 

000 


.BYTE 0 

.-DRIVE 3 


L 



I 14 
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SEQ 0177 


040200 

040201 

040202 

040203 

74 

75 

76 

77 

78 

79 040204 

82 040205 
040206 
040207 
040210 
040211 
040212 
040213 

83 


000 

000 

000 

000 


000 

000 

000 

000 

000 

000 

000 

000 


84 


85 


86 


87 


88 040214 

000 

91 040215 

000 

040216 

000 

040217 

000 

040220 

000 

040221 

000 

040222 

000 

040223 

000 

92 


93 


94 


95 040224 

EMM* 

98 040226 

000000 

040230 


040232 

Ivmv 

040234 


040236 

000000 

040240 

mm m 

040242 

000000 


99 
100 
101 
102 

103 

104 040244 

105 

106 

107 

108 

109 

110 
111 

112 040246 

113 

114 


000000 


000000 


• BYTE 
.BYTE 

• BYTE 
.BYTE 


0 

0 

0 

0 


DRIVE 4 
DRIVE 5 
DRIVE 6 
DRIVE 7 


.•TABLE OF DUAL PORT INITIALIZATION INDICATORS 

;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
;DP1NT<0 IF INITIALIZATION IS IN PROGRESS 


DPI NT: 


.BYTE 
.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 


0 

0 

0 

0 

0 

0 

0 

0 


DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 


.■TABLE OF PENDING DUAL PORT REQUESTS 

;DPRQS*0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
;DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING rOR THAT DRIVE 


DPRQS : 


• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 


0 

0 

0 

0 

0 

0 

0 

0 


.-DRIVE 0 
.‘DRIVE 1 
.•DRIVE ‘ 
.‘DRIVE 
.•DRIVE 
.’DRIVE 
.‘DRIVE 
.‘DRIVE 


.DRIVE REQUEST QUE WORDS 


QDRV: 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


0 

0 

0 

0 

0 

0 

8 


DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 


.‘TRANSFER WAIT FLAG (TRNSWT=1 WORD) 

.‘THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
; DP8 OF THE I/O OPERATION. 

TRNSWT : .WORD 0 

.•SEARCH WAIT KEYS ($RCHWT*1 WORD) 

.‘THIS IS A ONE WORD QUEUE THAT WIU CONTAIN A KEY FOR EACH OF 
.‘THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE I/O 
.‘REOUEST THAT IS AT THE TOP OF THEIR REQUEST OUEUE. 

.-EACH DRIVE IS ASSIGNED ONE BIT. STARTING AT BITOO FOR DRIVE 0. 

SRCHWT: .WORD 0 

;RM DRIVER ACTIVE FLAG <ACTDRV=1 BYTE) 


S£Q 0178 
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115 

116 

117 

118 040250 

119 

120 
121 
122 

123 

124 040251 

125 

126 

127 

128 

129 

130 

131 

132 040252 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 


149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 


000 


000 


000000 


;ACTDRV=0 IF DRIVER IS INACTIVE 
;ACTDRV>0 IF DRIVER IS ACTIVE 

ACTDRV: .BYTE 0 

.-SOFTWARE TIMER ROUTINF ACTIVE FLAG (ACTSTR=1 BYTE) 

;ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
;ACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE 

ACTSTR: .BYTE 0 

.-SAVE REGISTERS FLAG (SAVEFG *1 WORD) 

,-SAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE 
.-OPERATION IS COMPLETED AS PER (DP8+14). 

;SAVEFG=0 IF SAVE THE RH/RM REGISTERS. AS PER 
; (DPfl+14) , AFTER AN ERROR, 

SAVEFG: .WORD 0 

;SEEK FLAG (SEEKFG=1 WORD) 

;SEEKFG*0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
.-FOR A DATA TRANSFER START A SEARCH COMMAND 
;SEEKFG<0 IF DATA TRANSFER WILL DO IMPLIED SEEKS. 
.-DISREGARD THE WINDOW 


040254 

177777 

SEEKFG: .WORD 

-1 




.-TIMEOUT TABLE 

(TIMER =8 WORDS) 




.THIS 

TABLE CONTAINS THE 

TIME ALI 

040256 

177777 

TIMER: .WORD 

-1 

DRIVE 0 

040260 

177777 

.WORD 

-1 

DRIVE 1 

040262 

177777 

.WORD 

-1 

DRIVE 2 

040264 

177777 

.WORD 

-1 

DRIVE 3 

040266 

177777 

.WORD 

-1 

DRIVE 4 

040270 

177777 

.WORD 

-1 

DRIVE 5 

040 272 

177777 

.WORD 

-1 

DRIVE 6 

040274 

177777 

.UORD 

-1 

DRIVE 7 


;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 

;DTUW<0 IF NO DATA TRANSFER UNDERWAY 

.-DTUW-+N (WHERE N*0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


040276 

177777 


DTUW: 

.WORD -1 





.-ATTENTION BITS TABLE (ATA8IT*8 BYTES) 

.-THIS TABLE CONTAINS THE CORRESPONDING BIT 
.-ATTENTION BIT 

TO EACH DRIVES 

040300 

001 

002 

004 ATABIT: 

.BYTE 1 .2,4,10,20,40,100.200 





.STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF RH70/RM80). 

,-RMVEC (THE VECTOR ADDRESS (2 54)). AND RMVEC+2 (THE BR LEVEL (5)5 

040310 

040312 

040316 

176700 

000254 

000050 

000240 

RMADR: 

RMVEC: 

RHEXT: 

.WORD 176700 
.WORD 254.5*32. 

.WORD 50 .-OFFSET TO RMBAE 
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SEO 0179 


170 

171 

172 

173 040320 

174 

175 


;SEARCH DIFFE 

000005 

MXWNDW : 

.WORD 


.DEFINITIONS 

176 

177 

000000 

RMCS1 

= 0 

178 

IWiVM .'V." 

RMWC 

= 2 

179 


RMBA 

= 4 

180 


RMDA 

= 6 

181 

ByIvfW ■ ■- 

RMCS2 

= 10 

182 


RMDS 

= 12 

183 

000014 

RMER1 

= 14 

184 

000016 

RMAS 

= 16 

185 

000020 

RMLA 

= 20 

186 

000022 

RMDB 

= 22 

187 

000024 

RMMR1 

= 24 

18 8 


RMDT 

= 26 

189 


RMSN 

= 30 

190 

000032 

RMOF 

= 32 

191 

000034 

RMDC 

= 34 

192 

000036 

RMHR 

= 36 

193 

000040 

RMMR2 

= 40 

194 


RMER2 

= 42 

195 

000044 

RMEC1 

= 44 

196 

000046 

RMEC2 

= 46 

198 

000050 

RMBAE 

= 50 

199 

000052 

RMCS3 

= 52 

201 





CONTROL AND STATUS REGISTER #1 (DRIVE REG. 0) 

WORD COUNT REGISTER (NOT A DRIVE REG) 

UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 

DESIRED TRK/SEC ADDRESS REGISTER (DRIVE REG. 5) 
CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
DRIVE STATUS REGISTER (DRIVE REG 1) 

ERROR REGISTER #1 (DRIVE REG. 2) 

ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 
LOOK AHEAD REGISTER (DRIVE REG. 7) 

DATA BUFFER REGISTER (NOT A DRIVE REG.) 
MAINTAINABILITY REGISTER #1 (DRIVE REG. 3) 

DRIVE TYPE REGISTER (DRIVE REG. 6) 

SERIAL NUMBER REGISTER (DRIVE REG. 10) 

OFFSET REGISTER (DRIVE REG. 11) 

DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
'FOLDING REGISTER" (DRIVE REG. 13) 

MAINTENANCE REGISTER #2 (DRIVE REG. 14) 

ERROR REGISTER 92 (DRIVE REG. 15) 

ECC POSITION RE61STER (DRIVE REG. 16) 

ECC PATTERN REGISTER (DRIVE REG. 17) 

BUS ADDRESS EXTENTION REGISTER 
CONTROL AND STATUS REGISTER #3 
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SEO 0180 
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1 

2 

5 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 040322 

15 040324 

16 040330 

17 040336 

18 040342 

19 040346 

20 040352 

21 040354 

22 040356 

23 040360 

24 040364 

25 040370 

26 040372 

27 040374 

28 040400 

29 040404 

30 040410 

31 040414 

32 040420 

33 040424 

34 040430 

35 040434 

36 040442 

37 040444 

38 040450 

39 040452 

40 040454 

41 040460 

42 040462 

43 040466 

44 040470 

45 040474 

46 040500 

47 040504 

48 040506 

49 040512 

50 040516 

51 040520 

52 040522 

53 040524 

54 040530 

55 040532 

56 

57 


;RH70/RM80 DRIVER INITIALIZATION CODE „ 

.-THIS ROUTINE WILL DETERMINE WHICH RM80 DRIVES ARE 
•AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
; TO THE PROPER STATE FOR EACH DRIVE. 

.-NOTE: THIS ROUTINE CALLS DRVINT 


104412 

013746 

012737 

004737 

012701 

012702 

005021 

020102 

101775 

012702 

012721 

020102 

101774 

005037 

005037 

005037 

005037 

013703 

012723 

013713 

013704 

012764 

005001 

004037 

000401 

000402 

105061 

005201 

042701 

001366 

012701 

005037 

105761 

001405 

004737 

105761 

001375 

005301 

100366 

012637 

104413 

000207 


CALL : 


JSR PC.RMINIT 
RETURN 


NOTE: THE 'P* OR ’L* CLOCK MUST BE STARTED 


177776 

000240 177776 
04530C 
040146 
040254 


040276 

177777 


040164 

040166 

040170 

040172 

040312 

042452 

040314 

040310 

000040 000010 
040534 

040164 

177770 

000007 

177776 

040204 

045226 

040204 


177776 


RMINIT: 


1 $: 


28: 


38: 


48: 

58: 


68 : 


78: 

88 : 


SAVREG 

MOV 

MOV 

JSR 

MOV 

MOV 

CLR 

CMP 

BLOS 

MOV 

MOV 

CMP 

BLOS 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

JSR 

BR 

BR 

CLRB 

INC 

BIC 

BNE 

MOV 

CLR 

TSTB 

BEQ 

JSR 

TSTB 

BNE 

DEC 

BPL 

MOV 

RESREG 

RTS 


a#PS.-<SP> 

#<5*32.>,i*PS 

PC.CLRQUE 

#RMERRS,R1 

#SEEKFG,R2 

(R1) + 

R1.R2 

18 

#DTUW.R2 
f-1 • <R1 ) ♦ 

R1 .R2 

28 

DRVSTA 

DRVSTA+2 

DRVSTA+4 

DRVSTA+6 

RMVEC.R3 

#ISR, <R3>* 

RMVEC+2,(R3> 

RMADR.R4 

#40,RMCS2(R4> 

R1 

RO, DRVINT 

48 

58 

DRVSTA (R1) 

R1 

#*C7,R1 

38 

#7,R1 

MP$ 

DPINT(RI) 

88 

PC. SET. IE 
DPINT(RI) 

78 

R1 

68 

csp)+.a#ps 

PC 


SAVE RO - R5 

SAVE THE PRESENT PROCESSOR STATUS 
CHANGE THE PRIORITY TO 5 
CLEAR ALL REQUEST QUEUES 
FIRST ADDRESS TO BE CLEARED 
LAST ADDRESS TO BE CLEARED 
CLEAR 

ARE UE DONE? 

BRANCH IF NO 
LAST ADDRESS 
INITIALISE 
DONE? 

LOOP IF NO 

SET ALL DRIVES TO OFFLINE 


.•SETUP THE RH70/RM80 VECTOR 


FIRST ADDRESS OF RH70/RM80 

MASS8US INIT 

START WITH DRIVE 0 

INJT THE DRIVE 

•DVA* NOT SET 

NORMAL RETURN 

SET DRIVE STATJS TO OFFLINE 

GO TO NEXT DRIVE 

MASK OUT UNUSEr> BITS 

BR IF MORE DRIVES TO GO 

START WITH DRIVE 7 

CLEAR THE PROCESSOR STATUS 

WAITING FOR DRIVE TO SWITCH PORTS ? 

BR NOT WAITING 

SET INTERRUPT 

DRIVE SWITCHED PORTS ? 

no ir MflT 

GO TO THE NEXT DRIVE 

CHECK NEXT DRIVE 

RESTORE THE PROCESSOR STATUS 

RESTORE RO - R5 

BYE-BYE 


.-DRIVE INITILIZATION ROUTINE 
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seo oi8i 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 040534 

72 040536 

73 040542 

74 040546 

75 040552 

76 040560 

77 040566 

78 040570 

79 040574 

80 040576 

81 040602 

82 040610 

83 040612 
040616 
040620 

84 040622 

85 040624 

86 040632 

87 040636 

88 040640 

89 040644 

90 040646 

91 040654 

92 040656 

93 040662 
040666 
040670 

94 040672 

95 040676 
040702 
040704 

96 040706 
040712 
040714 

97 040716 

98 040720 
9? 040722 

100 040730 
040734 
040736 

101 040740 

102 040742 

103 040744 

104 040752 


010546 

105061 

105061 

010164 

112764 

032764 

001403 

004737 

000476 

105061 

032764 

001470 

004037 

000026 

040774 

012605 

112761 

022705 

001407 

022705 

001404 

112761 

000446 

012746 

004037 

000000 

040774 

012746 

004037 

000032 

040774 

004037 

000012 

04077* 

012605 

100015 

116164 

004037 

000014 

040774 

006126 

100004 

112761 

000407 


THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
AN RM80. IF IT IS, A kEAD-IN PRESET" IS ISSUED AND FMT16 


AN RM80. IF IT IS, A ‘HEAD-IN PRESET" IS ISSUED AND FMT16 
IS SET TO A r, 1". THEN MOL. DPR. DRV, AND VV ARE CHECKED TO 
INSURE THEY ARE ALL ON A r 'V\ AND DEPENDING ON THEIR STATE, 
DRVSTA IS SET TO THE PROPER CONDITION. 


MOV #DRVNUM.R1 

MOV RMADR.R4 

JSR RO.DRVINT 

RETURN1 
RETURN2 


DRIVE NUMBER TO R1 

UNIBUS ADDRESS OF RH70/RM80 (RMCS1) 

CALLED BY A JSR 

ERROR OCCURRED ('NED') 

NORMAL RETURX 


040164 

040174 

000010 

000111 000000 
010000 000010 

045226 

040164 

004000 000000 
044670 


000001 040174 
020026 

024026 

177777 040174 

000121 

044750 


010000 

044750 


044670 


040300 000016 
044670 


177777 040164 


DRVINT: MOV 
CLRB 
CLRB 
MOV 
MOVB 
BIT 
BEQ 
JSR 
BR 

1$: CLRB 

BIT 
BEQ 
JSR 
RMDT 
5$ 
MOV 
MOVB 
CMP 
BEQ 
CMP 
BEQ 
MOVB 
BR 

2$: MOV 

JSR 
RMCS1 
5$ 
MOV 
JSR 
RMOF 
5$ 
JSR 
RMDS 
5$ 
MOV 
BPL 
MOVB 
JSR 
RMER1 
5$ 
ROL 
BPL 
MOVB 
BR 


R5,-(SP) .-SAVE R5 

DRVSTA(RI) ; START DRIVE STATUS 

DRVTYP(RI) ; CLEAR THE DRIVE TYP 

R1 ,RMCS2(R4) .‘SELECT A DRIVE 

#111 -RMCS1 (R4) ;D0 A DRIVE CLEAR CO 

#8JT12,RMCS2(R4> .‘NONEXISTENT DRIVE? 


SAVE R5 

START DRIVE STATUS AS OFFLINE 
CLEAR THE DRIVE TYPE INDICATOR 
SELECT A DRIVE 

DO A DRIVE CLEAR COMMAND (8 SEIZE DRIVE) 


IS 

PC, SET. IE 

4$ 

DRVSTA(RI) 

#BIT1 1 .RMCS1 (R4) 

4$ 

RO.RD.RM 


(SPM.R5 
#1.DRVTYP(R1> 
#26026, R5 

2 $ 

#24026, R5 
2$ 

#-1,DRVTYP(R1> 

4$ 

#121 . -<SP> 
RO.WRT.RM 


#8IT12,-<SP) 

RO.WRT.RM 


RO.RD.RM 


(SP)*, R5 

3$ 


NO — BRANCH 

GO SET "IE" WITHOUT A "TRE" 
LEAVE THIS ROUTINE 
SET DRIVE STATUS TO OFFLINE 
;SEE IF DRIVE AVAILABLE 
BR IF DRIVE NOT AVAILABLE 
CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED’ RETURN 
PUT DRIVE TYPE IN R5 
SET RM80 INDICATOR 
IS IT A SINGLE PORT RM80? 
BRANCH IF YES 
IS IT A DUAL PORT RM80? 

88 IF YES 

SET INDICATOR TO ‘OTHER’ 
EXIT 

DO A ‘HEAD-IN PRESET" 

CALL THE WRITE ROUTINE 
REGISTER OFFSET 
’NED' RETURN 
SET FMT16=1 

CALL THE WRITE ROUTINE 
REGISTER OFFSET 
‘NED’ RETURN 
CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED' RETURN 
AND SAVE IT IN R5 
BRANCH IF ATA-0 


ATABIT(R1),RMAS(ft4) .‘CLEAR ATTENTION BIT 
RO.RD.RM .’CALL THE READ ROUTINE 


(SP) + 

3$ 

#-1 .DRVSTA(RI) 
4$ 


CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED' RETURN 
IS IT UNSAFE? 

BR IF NOT 

SET UNSAFE INDICATOR 
EXIT 
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8 15 


SEO 0183 


1 


REQUEST PRE-PROC E SSOR-HANDLE S SUBSYSTEM REQUEST 
CALL: 


JSR 

PNTADR 

RETURN1 

RETURN2 


11 041000 

013746 

177776 


RM80: 

MOV 

12 (Kicxy- 

013737 

H2737 

040314 

177776 


MOV 

13 041012 

000001 

040250 


MOVB 

14 041020 

104412 




SAVREG 

15 041022 

011002 




MOV 

16 041024 

005062 

000016 



CLR 

17 041030 

111201 




MOVB 

18 041032 

013704 

040310 



MOV 

1? 041036 

105761 

040164 



TSTB 

20 041042 

003011 




BGT 

21 041044 

105761 

040204 



TSTB 

22 041050 

001027 




BNE 

23 041052 

004037 

040534 



JSR 

24 041056 

000421 




BR 

25 041060 

105761 

040164 



TSTB 

26 041064 

003432 




BLE 

27 041066 

105761 

040214 


1$: 

TSTB 

28 041072 

001016 




BNE 

29 041074 

010164 

000010 



MOV 

30 041100 

004037 

045344 



JSR 

31 041104 

000445 




BR 

32 041106 

105761 

040154 


2$: 

TSTB 

33 041112 

001037 




BNE 

34 041114 

004737 

041236 



JSR 

35 041120 

000434 




BR 

36 041122 

004737 

042334 


3$: 

JSR 

37 041126 

000431 




BR 

38 041130 

004037 

045344 


4$: 

JSR 

39 041134 

000431 




BR 

40 041136 

032714 

000100 



BIT 

41 041142 

001023 




BNE 

42 041144 

004737 

045226 



JSR 

43 041150 

000420 




BR 

44 041152 

105761 

040164 


5$: 

TSTB 

45 041156 

002412 




BLT 

46 041160 

012762 

140000 

000016 


MOV 

47 041166 

105761 

040174 



TSTB 

48 041172 

001007 




BNE 

49 041174 

012762 

100002 

000016 


MOV 

50 041202 

000403 




BR 

51 041204 

012762 

110000 

000016 

6$: 

MCV 

52 041212 

104413 



7$: 

RESREG 

53 041214 

005720 




TST 

54 041216 

000401 




BR 

55 041220 

104413 



8$: 

RESREG 

56 041222 

005720 



9$: 

TST 

57 041224 

105037 

040250 



CLRB 


R0.RM80 


&PS.-(SP) 

RMVEC*2.8#PS 

n.ACTDRV 

(R0).R2 
16 <R$) 

(R2) ,R1 

RMADR.R4 

DRVSTA(RI) 

1$ 

DPINT(RI) 

4$ 

RO.DRVINT 

3$ 

DRVSTA(RI) 

5$ 

DPRQS (R1) 

4$ 

R1.RMCS2CR4) 

RO.DRVQUE 

8$ 

DRVACT(RI) 

7$ 

PC, OPT 

7$ 

PC.CI8 

7$ 

RO.DRVQUE 

8$ 

#8IT06,(R4) 

7$ 

PC, SET. IE 

DRVSTA(RI) 

6$ 

#8IT15!8IT14, 

DRVTYP(RI) 

7$ 

#BIT15!BIT01, 

7$ 

#8IT15!BIT12. 

<R0) + 

9$ 

(RO)* 

ACTDRV 


CALL THE RM80 DRIVER 

ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
RETURN HERE IF QUEUE IS ^ULL 
RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
IS AN ERROR CONDITION 

SAVE THE CALLING STATUS 
DON’T ALLOW ANY RM80 INTERRUPTS 
SET "ACTIVE DRIVER" FLAG 
SAVE RO - R5 

PICKUP THE DRIVE PARAMETER BLOCK POINTER 
CLEAR THE STATUS/ERROR INDICATOR 
PICKUP THE DRIVE NUMBER 
UNIBUS ADDRESS OF RMCS1 
CHECK DRIVES STATUS 
BRANCH IF ONLINE 
TRYING TO INIT THE DRIVE 
BR IF YES 
GO INIT. THE DRIVE 
ERROR RETURN 
IS DRIVE STATUS ONLINE? 

BR IF NOT 

OUTSTANDING PORT REQUEST FOR THE DRIVE ? 

od If YFC 

SELECT THE DRIVE 
PUT THIS REQUEST IN QUEUE 
QUEUE IS FULL 
IS THIS DRIVE ACTIVE? 

BR IF YES 
CALL THE OPTIMIZER 

GO HANDLE THE ’NED’ 

PUT REQUEST IN QUEUE 
QUEUE IS FULL 
IS ’IE* SET ALREADY ? 

BR IF IT IS 
SET INTERRUPT 
RETURN, REOUEST IN QUEUE 
SEE IF DRIVE OFFLINE OR UNSAFE 
BR IF UNSAFE 
16(R2) .SET OFFLINE ERROR INDICATOR 
SEE IF OFFLINE OR NONEXISTENT 
^|P IF OFFLINE 


160 


.•REPORT DRIVE NONEXISTENT 


;G0 TO EXIT 

16(62) .-DRIVE IS UNSAFE 
RESTORE RO - R5 
SETUP FOR NORMAL RETURN 
FINISH UP. THEN EXIT 
RESTORE RO - R5 
CORRECT THE RETURN ADDRESS 
CLEAR "ACTIVE DRIVER" FLAG 
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C 15 


SEQ 0184 


58 041230 

012637 

177776 



MOV 

59 041234 

000200 




RTS 

60 






61 




.-OPTIMIZER-CAI 

62 






63 




;CALL: 


64 





MOV 

65 





JSR 

66 






67 041236 

104412 



OPT: 

SAVREG 

68 041240 

013746 

177776 



SQV 

69 041244 

004737 

045366 



JSR 

70 041250 

005702 




TST 

71 041252 

001510 




BEQ 

72 041254 

032764 

004000 

000000 


BIT 

73 041262 

001407 




BEQ 

74 041264 

032764 

000100 

000012 


BIT 

75 041272 

001003 




BNE 

76 041274 

004037 

040534 


1$: 

JSR 

77 041300 

000473 




BR 

78 041302 

105761 

040164 


2$: 

TSTB 

79 041306 

003014 




BGT 

80 041310 

004737 

045*00 



JSR 

81 041314 

012762 

140000 

000016 


MOV 

82 041322 

105761 

040164 



TSTB 

83 041326 

100067 




BPL 

84 041330 

012762 

110000 

000016 


MOV 

85 041336 

000463 




8R 

86 041340 

012746 

000111 


3$: 

MOV 

87 041344 

004037 

044750 



JSR 

041350 





RMCS1 

041352 

041470 




8$ 

88 041354 

032714 

004000 



BIT 

89 041360 

001432 




be a 

90 041362 

122762 

000150 

000002 


CMP8 

91 041370 

002403 




SIT 

92 041372 

004737 

041756 



JSR 

93 041376 

000443 




BR 

94 041400 

005737 

040276 


4$: 

TST 

95 041404 

002015 




BGE 

96 041406 

136137 

040300 

040246 


01 TB 

97 041414 

001003 




BNE 

98 041416 

005737 

040254 



TST 

99 041422 

100006 




BPL 

100 041424 

146137 

040300 

040246 

5$: 

BICB 

101 041432 

004737 

041516 



JSR 

102 041436 

000423 




BR 

103 041440 

004737 

041650 


6$: 

JSR 

104 041444 

000420 




BR 

105 041446 

112761 

177777 

040214 

7$: 

movb 

106 041454 

010103 




my 

107 041456 

006303 




ASL 

108 041460 

012763 

035230 

040256 


NOV 

109 041466 





SR 

110 041470 

004737 

042334 


8$: 

JSR 

111 041474 

032714 

000100 


9$: 

BIT 

112 041500 

001002 




BNE 


(SP)*,a#PS .-RETURN "PS" TO USER LEVEL 

RO .-RETURN TO CALLER 

:D FOR A PARTICULAR DRIVE 


#DRVNUN,R1 
PC. OPT 


MPS.-(SP) 

PC.GETREQ 

R2 

9$ 

#BIT11,RMCS1(R4) 

2 $ 

#3IT6.RMDS(R4) 

2 $ 

RO.DRVINT 

8 $ 

DRVSTA(RI) 

3* 

PC.POPQUE 


10 $ 
#111,-(SP) 
RO.WRT.RM 


DRIVE NUMBER TO R1 
SETUP A COMMAND 


SAVE RO - R5 
SAVE PROC. STATUS 
GET , DP8*' POINTER OF REQUEST 
IS THERE A REQUEST IN QUEUE? 

NO— BRANCH TO EXIT 
;IS DVA SET? 

BRANCH IF NOT 
IS VV SET ? 

BR IF IT IS 

SEE IF DRIVE STILL ONLINE ? 

•DVA* NOT SET 
IS DRIVE ONLINE? 

YES— BRANCH 

-ww ;N0— REMOVE REQUEST FROM QUEUE 

#8IT15!BIT14.16(R2) ;SET OFFLINE STATUS/ERROR INDICATOR 

DRVSTA(RI) ; IS DRIVE UNSAFE ? 

10$ ;BR TO EXIT I* NOT 

#8IT15!BIT12.16(R2) ;SET UNSAFE STATUS/ERROR INDICATOR 

.-BRANCH TO EXIT 
.-LOAD COFWAND ONTO THE STACK 
.-CALL THE WRITE ROUTINE 
.-REGISTER OFFSET 
.-•NED’ RETURN 
.-DRIVE AVAILABLE ? 

.00 If MOT 

•IS THE REQUEST FOR I/O? 

; YES— BRANCH 

.'CALL THE COMMAND INITIATOR 
.-BRANCH TO EXIT 
.-DATA TRANSFER UNDERWAY? 

; YES— GO START A SEARCH 

.•FINISHED A SEARCH ? 

;If NE, YES 
;D0 IMPLIED SEEKS? 


«8IT11.(R4> 

7 $ 

#150,2(R2> 

4$ 

PC.CI4 

10i 

DTUW 

ATABIT(R1),SRCHWt 
SEEKFG 
ATABI T (R1 ) .SRCHWf 


PC.CI1 

ioi 

PC.CI3 

ioi 

f-I.DPRQS(RI) 
R1.&3 
R3 


IF PL DO A SEARCH 

.-CLEAR "SEARCH WAIT" KEY 
.-START A DATA TRANSFER 


9 15000.. TIMER(R35 

9$ 

PC.CI8 
#8IT06.(R4) 


.-START A SEARCH 
;G0 TO THE EXIT 
.-SET PORT REQUEST INDICATOR 
.-SET UP TO ADDRESS WORDS 
CONVERT TO WORD INDEX 


;START 15 SECOND TIMER 

EXIT 

PROCESS THE 'NED' 

SEE IF 'IE' ALREADY SET 
BR IF SET 
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113 041502 
IK 041506 

115 041512 

116 041514 

117 
Vi8 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 041516 

132 041522 

133 041526 

134 041530 

135 041534 

136 041540 

137 041544 

138 041550 

139 041552 

140 041554 

141 041556 
041562 
041564 

142 041566 

143 041570 
041574 
041576 

144 041600 
041604 
041606 

145 0*1610 

146 041614 
041620 
041622 

147 041624 

148 041630 
041634 
041636 

149 041640 

150 041644 

151 

152 

153 

154 041650 

155 04*654 

156 0*1660 

1 57 041664 
041670 
041672 


004737 045226 
012637 177776 
104413 
000207 


004737 

010237 

010203 

013704 

010164 

062703 

062704 

012324 

012324 

012346 

004037 

000006 

042334 

012346 

004037 

000034 

042334 

004037 

000032 

042334 

042716 

004037 

000032 

042334 

016246 

004037 

000000 

042334 

010137 

000137 


045400 

040244 

040310 

000010 

000004 

000002 


044750 


044750 


044670 


001000 

044750 


000002 

044750 


040276 

042312 


013704 040310 
010164 000010 
016246 000012 
004037 044750 
000034 
042334 


JSR PC .SET . IE 

10$. MOV (SP)*,iAPS 
RESREG 
RTS PC 

.•COMMAND INITIATOR 


ADRVNUH.R1 
ADP8.R2 
PC. Cl? 


START A DATA TRANSFER 


CI1: JSR 

MOV 
MOV 
MOV 
MOV 
ADD 
ADD 
MOV 
MOV 
MOV 
JSR 
RMDA 
C18 
MOV 
JSR 
RMDC 
CIS 
JSR 
RMOF 
C 18 
8IC 
JSR 
RMOF 
C18 
MOV 
JSR 
RMC51 
CI8 
MOV 
JMP 

.-START A SEARCH 


PC.POPQUE 

R2.TRNSWT 

R2.R3 

RMADR.R4 

R1,RMCS2(R4) 

#4,R3 

#2.R4 

(R3>*,(R4)* 

(R3)*,(R4)+ 

(R3)+.-(SP) 

RO.WHT.RM 


<R3>*,-( SP) 
RO.WRT.RM 


RO.RD.RM 


#8JT09,(SP) 

RO.WRT.RM 


2<R2).-<SP) 

RO.WRT.RM 


R1.DTUW 

ci 5 


RMADR.R4 

R1.RMCS2(R4) 

12(R2>.-(SP) 

RO.WRT.RM 


SET "IE** WITHOUT A "TRE" 
RESTORE PROC. STATUS 
RESTORE RO - R5 


SEO 0185 


DRIVE NUMBER 
ADDRESS OF DP8 
CI?» CI1.CI3. OR C 14 
WHERE * 

CI1=DATA TRANSFER 

CI2=SEARCH REQUESTED BY DATA XFER 

C14*N0T DAI A TRANSFER 


REMOVE REQUEST FROM "DRIVES WAIT" QUEUE 

PUT REQ. IN TRANSFER WAIT QUEUE 

DPB ADDRESS TO R3 

RMCS1 ADDRESS 

SELECT DRIVE 

DESIRED WORD COUNT 

RMWC ADDRESS 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD SECTOR AND TRACK 

CAlL THE WRITE ROUTINE 

REGISTER OFFSET 

'NED* RETURN 

LOAD CYLINDER ADDRESS 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

'NED* RETURN 

CALL THE READ ROUTINE 

REGISTER OFFSET 

'NED* RETURN 

CLEAR 'SKIP SECTOR E.7R0R INHIBIT’ 

CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED' RETURN 

LOAD "COMKAND+GO". "A171A16", AND *T>SEL" 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
•ucn« oprijeM 

SET 'DATA TRANSFER UNDERWAY" 


RMCS1 ADDRESS 
SELECT DRIVE 

DESIRED CYLINDER ADDRESS 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
•NED* RETURN 



SEQ 0186 
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E 15 


158 041674 

159 041700 

160 041704 

161 041706 

162 041712 

163 041714 

164 041722 
041726 
041730 

165 041732 

166 041736 
041742 
041744 

167 041746 

168 041754 

169 

170 

171 

172 041756 

173 041762 

174 041766 

175 041772 

176 041776 

177 042000 

178 042004 
042010 
042012 

179 042014 

180 042016 

181 042022 

182 042024 

183 (542030 
042034 
042036 

184 0420*0 

185 042042 

186 042046 

187 042050 
042054 
042056 

188 042060 

189 042064 
042070 
042072 

190 042074 

191 042076 

192 042102 

193 042104 

194 042106 
042112 
042114 

195 042116 

196 042120 

197 042124 

198 042126 
042132 
042134 


002002 

062703 

010346 


000006 

042334 


000000 

042334 

156137 

000556 


013704 
010164 
116203 
122703 
001007 
016246 
004037 
000006 
042334 
000403 
122703 
001 C07 
016246 
004037 
000034 
042334 
000517 
122703 
001013 
004037 
000032 
042334 
116216 
004037 
000032 
042334 
000501 
122703 
001006 
005046 
004037 
000034 
042334 
000470 
122703 
001014 
004037 
000032 
042334 


000010 


MOVB 

10(R2),R3 

040320 


SUB 

BGE 

MXWNDW.R3 

IS 

000037 


ADD 

#31.. R3 

IS; 

MOV 

R3.-(SP) 

000011 

000001 

MOVB 

1 1 (R2) , 1 (SP) 

044750 

JSR 

RMDA 

CI8 

RO.WRT.RM 

000131 


MOV 

#131. -(SP) 

044750 


JSR 

RMCS1 

CI8 

RO.WRT.RM 

ATABIT(R1).S 

CI5 

040300 

040246 

BIS8 

BR 


.•INITIATE A NON-I/O OPERATION 


040310 

000010 

000002 

000131 

000010 

044750 


000105 

000012 

044750 


000115 

044670 


000001 

044750 


000107 

044750 

000143 

04*670 


CI4: 


1 $: 

2 $: 

3$: 


4$: 


5$: 


MOV 

MOV 

MOVB 

CMP8 

BNE 

MOV 

JSR 

RMDA 

CIS 

BR 

CMPB 

BNE 

MOV 

JSR 

RMDC 

CI8 

BR 

CMPB 

BNE 

JSR 

RMOF 

CI8 

MOVB 

JSR 

RMOF 

CI8 

BR 

CMPB 

BNE 

CLR 

JSR 

RMDC 

C 18 

BR 

CMPB 

BNE 

JSR 

RMOF 

Cl 8 


RMADR.R4 
R1.RMCS2(R4) 
2(R2) ,R3 
#131 ,R3 
IS 

10(R2) ,-<$P) 
RO.WRT.RM 


2S 

#105,R3 

3$ 

12(R2) .-(SP) 
RO.WRT.RM 


14$ 

#115.R3 

4S 

RO.RD.RM 


1(R2>. (SP) 
RO.WRT.RM 


14$ 

#107,R3 

5S 

-(SP) 

RO.WRT.RM 


14S 

#143. R3 
6S 

RO.RD.RM 


; PICKUP SCC TOR ADDRESS 

.-BACKUP BY MAX. SEARCH FOR I/O WINDOW 


COMBINE THE ADJUSTED SECTOR WITH 

THE DESIRED TRACK 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED* RETURN 

START A SEARCH 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED* RETURN 

;SET "SEARCH WAIT" KEY 


RMCS1 ADDRESS 
SELECT DRIVE 

PICKUP THE REQUESTED COMMAND 
IS IT A SEARCH COMMAND? 

BRANCH IF NO 

LOAD DESIRED TRACK t SECTOR 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

'NED' RETURN 

GO LOAD CYLINDER 

IS IT A SEEK COMMAND 

BRANCH IF NO 

LOAD DESIRED CYLINDER 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED* RETURN 

IS IT AN ’OFFSET" COMMAND? 

BR IF NO 

CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED 1 RETURN 

BYTE WHEN LOADING THE REGISTER 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
•NED* RETURN 

IS IT A * RECALIBRATE" COMMAND? 

IF NE. NO 

CYLINDER ZERO 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

'NED' RETURN 

CONTINUE 

IS IT A "SET FORMAT" COMMAND? 
BRANCH IF NO 
CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED* RETURN 



SEO 0187 
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F 15 


199 042136 

200 042144 
042150 
042152 

201 042154 

202 042156 

203 042162 

204 042164 

205 

206 042170 

207 042176 

208 042202 

209 042206 

210 042210 

211 042212 

212 042214 

213 042220 

214 042222 

215 042230 

216 042232 

217 042236 

218 042240 

219 042242 
042246 
042250 

220 042252 

221 042256 

222 042264 

223 042270 

224 042272 

225 C42276 

226 

227 

228 

229 042300 

2 30 042302 
042306 
042310 

231 

232 

233 

234 042312 

235 042314 

236 042322 

237 042324 

238 042332 

239 

240 

241 

242 042334 

243 042336 

244 042342 

245 042344 

246 042350 

247 042354 

248 042356 

249 042362 


116266 
004 Oi ' 
00003c 
042334 
C00436 
122703 
001023 
016203 

116237 

116205 

004037 

000000 

042334 

012623 

023705 

001414 

062737 

000764 

122703 

001405 

010346 

004037 

000000 

042334 

004737 

052762 

005737 

100002 

004737 

000207 


010346 

004037 044750 
000000 
042334 


000001 

000001 


MOVB 

1 (R2) ,1 (SP) 

044750 



JSR 

RMOF 

CI8 

RO.WRT.RM 




BR 

12$ 

000141 


6$: 

CMPB 

#141 ,R3 



BNE 

10$ 

000006 


7$: 

MOV 

6(R2).R3 

000010 

042206 


MOVB 

10(R2) ,9$ 

000011 


MOVB 

11 (R2), R5 

044670 


8$: 

JSR 

RO.RD.RM 


00630 t 
012761 
006201 
112761 
000207 


104412 

105761 

001431 


001402 

004737 

005702 


9$: 


RMCS1 
CI8 


042206 



CMP 

9S.R5 

i2i 



BEQ 

000002 

042206 


ADD 

#2.9$ 




BR 

8$ 

COOKS 


10$: 

CMPB 

#145. R3 



BEO 

12$ 



11$: 

MOV 

R3,-(SP) 

044750 



JSR 

RMCS1 

CIS 

RO.WRT.RM 

045400 


12$: 

JSR 

PC.POPQUE 

000200 

000016 


BIS 

#BIT07.16(R2> 

040252 



TST 

SAVEFG 




BPL 

13$ 

045062 



JSR 

PC.SVRH70 


13$: 

RTS 

PC 


COMBINE "FMT16",* ’ECI",' HCI", $ 
CALI THE WRITE ROUTINE 
REGISTER OFFSET 
•NED- RETURN 


*SSEI* 


IS IT A "GET REGISTER" COMMAND? 

QCAAirU T F tun 

POINTS TO 1ST ADDRESS OF WHERE 
TO PUT THE REGISTER(S) 

INIT. THE INDEX FOR THE FIRST REG. 
INDEX OF LAST REG. TO MOVE 
READ RM80 REGISTER 
INDEX OF REG. TO READ 

GET THE CONTENTS OF RH70/RM80 REG. 
LAST REG. BEEN READ? 

GET OUT IF YES 

INCREASE THE INDEX BY 2 

LOOP— MORE TO READ 

IS IT A "SELECT DRIVE" COMMAND? 

BRANCH IF YES 

LOAD THE COMMAND 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED’ RETURN 

REMOVE REQ. FROM QUEUE 

SET THE "DONE" BIT 

SAVE THE HH70/RM80 REGISTERS? 

BRANCH IF NO 

YES— 60 SAVE THE REGISTERS 
RETURN TO USER 


.START A NON-DATA TRANSFER OPERATION 


14$: 


MOV 
JSR 
RMCS1 
Cl 8 


R3.-CSP) 

RO.WRT.RM 



CIS: 

ASL 

023420 

040256 

MOV 

ASR 

000001 

040154 

MOVB 

RTS 


.-START THE COMMAND TIMER 


R1 


.'LOAD THE COMMAND 
.-CALL THE WRITE ROUTINE 
.'REGISTER OFFSET 
.‘NED’ RETURN 


;SET A 10 SECOND TIMER 


#10000.. TIMER(RI) 

R1 

#1 .DRVACT(RI) ;SET THE DRIVE ACTIVE 

PC .-RETURN TO THE USER 


.'PROCESS A NON-EXISTENT DRIVE 



CI8: 

SAVREG 


040154 


TST8 

DRVACT(RI) 



BEQ 

3$ 

040244 


MOV 

TRNSWT.R2 

040276 


CMP 

R1.DTUW 



BEQ 

1$ 

045366 


JSR 

PC.GETREQ 


1$: 

TST 

R2 


SAVE RO - R5 
DRIVE ACTIVE? 
noiNfu if un 

GET THE "TRANSFER WAIT" QUEUE 

DID THIS DRIVE HAVE AN I/O IN PROGRESS? 

BRANCH IF YES 

GET THE DPB POINTER 

QUEUE ENTRY FOR DRIVE ? 



SEQ 0188 


CZRNAAO RM8G PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 55-5 
SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 


G 15 


250 042364 

251 042366 

252 042374 

253 042402 

254 042406 

255 042412 

256 042414 

257 042422 

258 042426 

259 042432 

260 042436 

261 042442 

262 042446 

263 042450 


00140 

01276 

01276 

105061 

020137 

001005 

012737 

005037 

004737 

105061 

105061 

004737 

104413 

000207 



040154 

040276 

177777 

040244 

045332 

040164 

040174 

045226 


000016 

040256 


040276 


2 $: 


3$: 


4$: 


BEQ 2S 

MOV #8IT15!BIT01.16( 

MOV #-1.TIMER(R3> 

CLRB DRVACT(RI) 

CMP R1.DTUU 

BNE 3$ 

MOV f-I.DTUU 

CLR TRNSUT 

JSR FC.EMPTVQ 

CLRB DRVSTA(RI) 

CLRB DRVTYP(RI) 

JSR PC, SET. IE 

RESREG 

RTS PC 


;BR IF NOT 

R2) ;SET 'DRIVE NON-EXISTENT* INDICATOR 

.STOP TH§ TIMER 

;SET 'DRIVE ACTIVE" TO IDLE 

; JS THIS DRIVE SETUP FOR A TRANSFER 

;8R IF NOT 

; RESET THE INDICATOR 
; CLEAR THE TRANSFER OUEUE 
;CLEAR THE DRIVE'S OUEUE 
;SET DRIVE TO OFFLINE 
.•CLEAR THE DRIVE TYPE INDICATOR 
.•SET "IE" WITHOUT *7RE" 

; RES TORE RO - R5 
; RE TURN 



H 15 


! 

I 

1 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PA6E 56 
SINGLE /DUAL PORT RH70/RM80 DRIVER (REV 0.17) 


1 ; INTERRUPT SERVICE ROUTINE 


2 

3 042452 

112737 

000001 040250 

ISR: 

MOVB 

#1 .ACTDRV 

4 042460 

104412 



SAVREG 

RMADR.R4 

DTUW.R1 

5 042462 

013704 

040310 


MOV 

6 042466 

013701 

040276 


MOV 

7 042472 

002402 



BLT 

1$ 

8 042474 

004737 

042514 


JSR 

PC.TD 

9 042500 

004737 

043334 

1$: 

JSR 

PC. SC 

10 042504 

1C4413 



RESREG 

ACTDRV 

11 042506 

105037 

040250 


CLRB 

12 042512 

000002 



RTI 



14 ; TRANSFER DONE ROUTINE 


15 

16 042514 

105061 

040154 


TD: 

CLRB 

DRVACT(RI) 

17 042520 

012737 

177777 

040276 


MOV 

#-1.DTUW 

18 042526 

006301 




ASL 

R1 

19 042530 

012761 

177777 

040256 


MOV 

#-1 .TIMER(Rl) 

20 042536 

006201 




ASR 

R1 

21 042540 

013702 

040244 



MOV 

TRNSWT.R2 

22 042544 

005037 

040244 



CLR 

TRNSWT 

23 042550 

052762 

000200 

000016 


BIS 

#8IT07,16(R2) 

24 042556 

010164 

000010 



MOV 

R1,RMCS2<R4) 

25 042562 

004037 

044670 



JSR 

RO.RD.RM 

042566 

1 




RMCS1 


042570 

042334 




CI8 


26 042572 

006126 




ROL 

<SP) + 

27 042574 

100421 




BMI 

3$ 

28 042576 

005737 

040252 



TST 

SAVEFG 

29 042602 

100002 




BPL 

If 

30 042604 

004737 

045062 



JSR 

PC.SVRH70 

32 042610 

004737 

043246 


1$: 

JSR 

PC.WC.HK 

33 042614 

004737 

045366 



JSR 

PC.GETREQ 

34 042620 

005702 




TST 

R2 

35 042622 

001403 




BEQ 

2$ 

36 042624 

004737 

041236 



JSR 

PC, OPT 

40 042630 

000207 




RTS 

PC 

41 042632 

012714 

000113 


2$: 

MOV 

#113, <R4) 

42 042636 

000207 




RTS 

PC 

43 

44 042640 




3S: 



042640 

004037 

044670 



JSR 

RO.RD.RM 

042644 

000014 




RMER1 


042646 

042334 




CI8 


45 042650 

032726 

000600 



BIT 

#BIT8«BIT7,(SP) 

46 042654 

001016 




BNE 

4$ 

47 042656 

004037 

044670 



JSR 

RO.RD.RM 

042662 

000042 




RMER2 


042664 

042334 




CIS 


48 042666 

032726 

000040 



BIT 

#SSE.(SP>* 

49 042672 

001407 




BEQ 

4$ 

50 042674 

004037 

044670 



JSR 

RO.RD.RM 

042700 

000032 




RMOF 


042702 

042334 




CI8 


51 042704 

032726 

001000 



BIT 

#SSEI,(SP)+ 

52 042710 

001416 




BEQ 

SKIP 


t 


SEO 0189 


SET "ACTIVE DRIVER" FLAG 
SAVE RO - R5 
ADDRESS OF RMCS1 

GET r DATA TRANSFER UNDERWAY" INDICATOR 

BRANCH IF NO DATA TRANSFER UNDERWAY 

CALL TRANSFER DONE 

CALL SPECIAL CONDITIONS 

RESTORE RO - R5 

CLEAR "ACTIVE DRIVER" FLAG 

RETURN 


;SET DRIVE ACTIVE INDICATOR TO IDLE 
;N0 DATA TRANSFERS UNDERWAY 

.•CANCEL TIMEOUT 

;GET "DP8" ADDRESS FROM THE 
; TRANSFER WAIT QUEUE— CLEAR QUEUE 
;SET DONE 
.'SELECT THE DRIVE 
.‘CALL THE READ ROUTINE 
.REGISTER OFFSET 
.'•NED* RETURN 
;IS TRE*1 ? 

‘SR IF YES 

'SAVE THE RH70/RM80 REGISTERS? 

.BRANCH IF NO 

.YES— SAVE THE REGISTERS 

.'SEE IF WRITE CHECK TO BE PUT IN QUEUE 

.GET DP8 POINTER 

.•ENTRY FOR DRIVE ? 

;8R IF NOT 
.'CALL OPTIMIZER 
.'RETURN 

.RELEASE THE DRIVE 
.‘RETURN 



.‘CALL THE READ ROUTINE 
.•REGISTER OFFSET 
.•'NED* RETURN 

;SEE IF HCRC OR HCE ERRORS 
;IF NE, YES 

.-CALL THE READ ROUTINE 
.'REGISTER OFFSET 
; ’NED* RETURN 
.-SEE IF SKIP SECTOR ERROR 
;IF EO. NO 

.'CALL THE READ ROUTINE 
.-REGISTER OFFSET 
.•’NED’ RETURN 

;IS THE INHIBIT BIT ALREADY SET ? 
.'IF EQ. NO 



SEQ 0190 


R2) ;SET DATA ERROR FLAG 
; EMPTY THE “DRIVE'S WAIT** QUEUE 
.-SAVE THE RH70/RM80 REGISTERS 
.•ISSUE A 'DRIVE CLEAR" 

.•ISSUE A RELEASE TO THE DRIVE 
.•RETURN 


LOAD ACTIVE DRIVE NUMBER 
RESTORE TRANSFER FLAG 
CLEAR THE DRIVER STATUS 
SEE IF HEADER ORDER 
IF EQ, NO 

CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED* RETURN 

SAVE NEW STARTING CYLINDER ADDRESS 
CALL THE READ ROUTINE 
REGISTER OFFSET 
’NED* RETURN 

SAVE NEU STARTING TRK/SEC ADDRESS 
CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED* RETURN 

GET REMAINING WORD COUNT 
BR IF PARTIAL SECTOR LEFT 
STARTING WORD COUNT 
IF RMUC MAS AT ZERO AFTER TRANSFER, 

FIND THE * NUMBER OF WORDS FOR LAST SECTOR 

BR IF NOT DONE YET 

ADD 1 SECTOR BACK 

IS WORD COUNT AT LEAST 6 ? 

ao it vce 

SET WORD COUNT TO 6 

STORE NEU WORD COUNT IN DPB 

STORE NEW WORD COUNT LENGTH IN DPB AND 

MAKE IT POSITIVE 

STARTING BUFFER ADDRESS 


CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED* RETURN 

CALCULATE THE NUMBER OF WORD 7RANSFERED 

LEAVE ONLY SECTOR MULTIPLES 

COPY THE DIFFERENCE 

NEW WORD COUNT 

COPY THE WORD COUNT 

CONVERT WORD DIFFERENCE TO A BYTE DIFFERENCE 

NEU BUFFER ADDRESS 

BUFFER ADDRESS 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

'NED* RETURN 

WORD COUNT 



SEQ 0191 


CZRNAAO RM80 PERT EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 56-2 
SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 


J 15 


121 


119 043162 
043166 
0431 70 

120 043172 
043176 
043202 
043204 

122 043206 

123 043212 
043216 
043220 

124 043222 

125 043230 

126 043234 
043240 
043242 

127 043244 

128 

130 

131 

133 043246 

134 043252 

135 043254 

139 043262 

140 043264 

141 043270 

142 043272 

143 043276 

144 043304 

145 043312 

146 043320 

147 043324 

148 043332 

149 

151 

152 

153 043334 

154 043340 

155 043342 
043346 
043350 

156 043352 

157 043354 

158 043356 

159 043360 

160 043364 

161 043366 

162 043370 

163 043372 

164 043376 

165 

166 

167 

168 043400 

169 043402 

170 043404 

171 043406 


004037 

000002 

042334 

012714 

004037 

000032 

042334 

052716 

004037 

000032 

042334 

012762 

016246 

004037 

000000 

042334 

000207 


005737 

001427 

122762 

001023 

004037 

000420 

005062 

116262 

016262 

016262 

105062 

112762 

000207 


116403 

001012 

004037 

000000 

042334 

106126 

100403 

104001 

004737 

000207 

005046 

110316 

012703 

005001 


030316 

001005 

005201 

106303 


044750 


040111 

044670 


001000 

044750 


000001 

C00002 

044750 


000112 


JSR 

RMWC 

CI8 

MOV 

JSR 

RMOF 

CI8 

BIS 

JSR 

RMOF 

Cl 8 

MOV 

MOV 

JSR 

RMCS1 

CIS 

RTS 


RO.WRT.RM 


#401 1 1 . (R4) 
RO.RD.RM 


#SSEI , (SP) 
RO.WRT.RM 


#1 ,SSSENB(R2) 

$CQMND(R2),-(SP> 

RO.WRT.RM 


PC 


CALL THE WRITE ROUTINE 
REGISTER ^FSEr 
•NED* RETURN 
CLEAR THE DRIVE 
CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED' RETURN 
SET THE INHIBIT BIT 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED* RETURN 

INDICATE THAT SKIP SECTORING WAS ENABLED 
;GET THE ORIGINAL COMMAND 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
•NED’ RETURN 
RETURN 


.•FORCED WRITE CHECK ROUTINE 


001502 

000161 000002 
045344 


WC.HK: 


IS: 


000016 

002140 

000012 

000010 

000024 

000151 


000027 

000034 

000032 

000002 


2J: 


TST 

BEQ 

CMP3 

BNE 

JSR 

BR 

CLR 

movb 

MOV 

Moy 

CLR8 

MOVB 

RTS 


WRTCHK ;D0 WRITE CHECK 

2$ ;BR IF NOT 

#WRTDAT,$COMND(R$) .'LAST OPERATION A WRITE COMMAND 


2S 

RO.DRVQUE 

2 $ 

STATUSCR2) 
$RMCS1(R2),$PREV0(R2) 
SCYL(R2),*PREVA+2(R2) 
$SEC(R2),SPREVA(R2) 


81% If NOT 

PUT THE OPERATION IN THE QUEUE 
OUEUE IS FULL 
CLEAR 'DONE' BIT IN DP8 

.-SAVE WRITE OPERATION CODE 
.-SAVE CYLINDER 

.-SAVE SECTOR AND TRACK ADDRESSES 

$C0DE(R2) .-CHANGE WRITE DATA TO WRITE CHECK 

#WCKD.SC0MNC(R2> .-CHANGE FUNCTION CODE TO WRITE CHECK 


PC 


.SPECIAL CONDITION ROUTINE 


000016 

SC: 

MOVB 

RMAS(R4).R3 


BNE 

21 

044670 


JSR 

RMCS1 

CI8 

RO.RD.RM 



ROLB 

(SP)* 



BMI 

IS 



EMT 

1 

045226 


JSR 

PC, SET. IE 

IS: 

RTS 

PC 


2S: 

CLR 

-(SP) 


MOVB 

R3,(5P) 

000001 


MOV 

#1.R3 



CLR 

R1 


.•PROCESS ALL 

DRIVES WITH "A 


SC3: 

BIT 

R3. (SP) 

SC$ 



BNE 


SC4: 

INC 

R1 


ASLB 

R3 


.-EXIT 


READ ’WAS" 

BRANCH IF ANY 'ATA' BITS SET 
CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED' RETURN 
IS "IE* -1? 

YES. NO DRIVES TO CHECK 
REPORT AN ILLEGAL INTERRUPT 
SET INTERRUPT ENABLE 
RE TURN 

PROCESS ALL DRIVES THAT HAVE 
AN "ATA'-I 


ATA=1? 

YES— BRANCH 

MOVE TO THE NEXT DRIVE 


(ZRNAAO RM80 PERF EXER MACRO V04.00 14- JAN-82 15:16:58 PA6E 56-3 
SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 


K 15 


SEO 0192 


172 043410 

001373 




BNE 

SC3 

BRANCH IF MORE TO CHECK? 

173 043412 

005726 




TST 

ISP)* ; 

CLEAN OFF THE STACK 

174 043414 

175 

176 

177 

178 043416 

000207 




RTS 

PC ; 

RETURN TO USER 




.•DETERMINE IF 

THE DRIVE WITH "ATA" SET IS ACTIVE WITH A COMMAND 

105761 

040204 


SC5: 

TST8 

DPINT(RI) 

INITIALIZING THE DRIVE ? 

179 043422 

001402 




BEQ 

IS 

BR IF NOT 

180 043424 

000137 

044012 



JMP 

SC13 

PROCESS THE DRIVE 

181 043430 

105761 

040214 


1$: 

TSTB 

DPRQS(RI) 

PORT REQUEST OUTSTANDING ? 

182 043434 

001402 




BEQ 

2$ 

BR IF NOT 

183 043436 

000137 

044012 



JMP 

SC13 

START THE OUTSTANDING COMMAND 

184 043442 

105761 

040154 


2$: 

TSTB 

DRVACT(RI) 

DRIVE ACTIVE ? 

185 043446 

186 

187 

188 

189 043450 

001016 




BNE 

SC6 

BR IF ACTIVE 




; THE 

DRIVE WAS 

NOT ACTIVE. FIND OUT WHY IT INTERRUPTED 

004737 

043750 



JSR 

PC.SC12 

SAVE RMDS. RMER1 AND RMER2 

190 







ALSO DO A DRIVE INIT (DRVINT) 

191 043454 

105761 

040204 



TSTB 

DPINT(RI) 

TRYING TO INIT THE DRIVE ? 

192 043460 

001351 




BNE 

SC4 

BR IF YES. CHECK ON MORE DRIVES 

193 043462 

032737 

020000 

040154 


BIT 

#8IT13,RMERRS+6 

ADDRESS PLUG CHANGED ? 

194 043470 

001003 




BNE 

4$ 

BR IF YES 

195 043472 

011605 



3$: 

MOV 

(SP).R5 

PICKUP (RMAS) BEFORE THE ERROR CALL: 

196 043474 

104002 




EMT 

2 

REPORT THE UNEXPECTED ATTENTION 

197 043476 

198 043500 

000742 



4$: 

BR 

SC4 

GO CHECK FOR MORE ATA’S 

043500 

104005 




EMT 

5 

; REPORT THE ADDRESS PLUG CHANGE 

199 043502 

200 

201 

202 

203 043504 

000740 




BR 

SC4 

CHECK FOR MORE DRIVES 




;THE 

DRIVE COMPLETED A NON-I/O COMMAND 

006301 



SC6: 

ASL 

R1 

SETUP TO ADDRESS WORDS 

204 043506 

012761 

177777 

040256 


MOV 

#-1 .TIMER(RI) 

STOP THE TIMER 

205 043514 

006201 




AS R 

R1 

RESTORE THE DRIVE ADDRESS 

206 043516 

004737 

045366 



JSR 

PC.GETREQ 

GET THE DPB POINTER FROM THE QUEUE 

207 043522 

010164 

000010 



MOV 

R1 ,RMCS2(R4) 

SELECT DRIVE 

208 043526 

004037 

044670 



JSR 

RO.RD.RM 

CALL THE READ ROUTINE 

043532 

000012 




RMDS 

REGISTER OFFSET 

043534 

043656 




SC8 

<SP>. R5 

•NED' RETURN 

209 043536 

011605 




MOV 

AND PUT IT IN R5 

210 043540 

006126 




ROL 

(SP)* 

WAS THERE AN ERROR? 

211 043542 

100053 




BPL 

sen 

BR IF NO ERROR 

212 043544 

004037 

044670 



JSR 

RO.RD.RM 

CALL THE READ ROUTINE 

043550 

000014 




RMER1 

REGISTER OFFSET 

043552 

043656 




SC8 


'NED' RETURN 

213 043554 

012605 




MOV 

<SP)+. R5 

AND SAVE IT IN R5 

214 043556 

004737 

045062 



JSR 

PC.SVRH70 

SAVE RH70/RM80 REGISTERS 

215 043562 

012746 

000111 



MOV 

#lfl,-(SP> 

ISSUE A DRIVE CLEAR 

216 043566 

004037 

044750 



JSR 

RO.WRT.RM 

CALL THE WRITE ROUTINE 

043572 





RMCS1 

REGISTER OFFSET 

043574 

043656 




SC8 


'NED 1 RETURN 

217 043576 

006105 




ROL 

R5 

WAS *\JNSAFE M CONDITION =1? 

218 043600 

100404 




BM1 

1$ 

BRANCH IF YES 

219 043602 

220 043610 

221 043612 

052762 

000403 

052762 

100240 

000016 


BIS 

BR 

BIS 

#8IT15!8IT07!BIT05,16(R2> .-INFORM USER OF ERROR 

2S 

#8IT15!BIT07!BIT04.16(R2) .-INFORM USER OF UNSAFE ERROR 

100220 

000016 

1$: 


CZRNAAO RM80 PERF EXER MACRO V04.00 14- JAN-82 15:16:58 PAGE 56-4 
SINGLE /DUAL PORT RH70/RH80 DRIVER (REV 0.17) 


SEQ 0195 


222 043620 

223 043624 

224 043630 

225 043636 

226 043642 
043646 
043650 

227 043652 

228 

229 

230 

231 043656 

232 043662 

233 043666 

234 

235 

236 

237 043672 

238 043676 

239 

240 043704 

241 043706 

242 043712 

243 043720 

244 043724 

245 043726 

246 043732 

247 043740 

248 043744 

249 

250 

251 

252 043750 

253 043754 

254 043762 

255 043770 

256 043776 

257 044002 

258 044004 

259 044006 

260 044010 

261 
262 

263 

264 044012 

265 044014 

266 044022 

267 044024 

268 044030 

269 044036 

270 044042 

271 044044 

272 044046 

273 044054 

274 044056 

275 044060 

276 044064 


105061 

004737 

146137 

012746 

004037 

000000 

043656 

000137 


004737 

004737 

000137 


105061 

136137 

001012 

004737 

052762 

005737 

100002 

004737 

116164 

004737 

000137 


010164 
016437 
016437 
016437 
004037 
000401 
00 0207 
005726 
000722 


006301 

012761 

006201 

010164 

116164 

032714 

001006 

006301 

012761 

006201 

000433 

105761 

001424 


040154 

045332 

040300 

000113 

044750 


043404 


045332 

042334 

043404 


040154 

040300 


045400 

000200 

040252 

045062 

040300 

041236 

043404 


000010 

000012 

000014 

000042 

040534 


040246 


CLR8 

JSR 

BIC8 

MOV 

JSR 

RMCS1 

SC8 

JMP 


DRVACT(RI) ; SET DRIVE TO IDLE 

PC.EMPTYQ /DUMP THE QUEUE 

ATABIT (R1 ) .SRCHWT .'CLEAR THE SEARCH WAIT FLAG 


#1 13,-($P) 
RO.URT.RH 


; I SR 'NED'* PROCESSOR 


PC.EMPTYQ 

PC.CI8 

SC4 


RELEASE COMMAND 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED* RETURN 
CHECK FOR MORE DRIVES 


CLEAR THE DRIVE'S QUEUE 
PROCESS THE 'NED' 

CHECK MORE DRIVES 


; NON-I/O COMMAND TERMINATION ROUTINE 


040246 


000016 


000016 


BNE 

JSR 

BIS 

TST 

BPL 

JSR 

M0V8 

JSR 

JMP 


DRVACT(RI) ; SET DRIVE IDLE 

ATABI T (R1 ) .SRCHWT .-DOING A SEARCH OPERATION FOR 

.-AN I/O COMMAND? 

1$ .-BRANCH IF YES 

PC.POPQUE .-REMOVE REQUEST FROM QUEUE 

#8IT07.16(R2> .SET •■DONE’' BIT 
SAVEFG .-SAVE THE REGISTERS? 

1$ -BRANCH If NO 

PC.SVRH70 -YES— SAVE ALL OF THE RH70/RM80 REG’S 

ATABI T(R1),RMAS(ft4> .’CLEAR ATTENTION BIT 

PC t OPT .-START A REQUEST 

SC£ ; CHECK FOR MORE DRIVES 


040146 

040150 

040152 


.-ERROR PROCESSOR 
SC12: MOV fi 


JSR RO.DRVINT 

BR 1$ 

RTS PC 

1$: TST <SP) + 

BR SC8 

.-DUAL PORT REQUEST PROCESSOR 


R1.RMCS2(R4) .-SELECT DRIVE 
RMDS(R4) .RMERRS .-SAVE THE FOUR REGISTERS THAT 
RMER1 (R4 ) .RMERRS+2 ;«ILL TELL US SOMETHING 
RMER2(R4).RMERRS+4 


INIT. THE STATE OF THE DRIVE 

TAKE ERROR EXIT 

RETURN 

POP PC OFF OF THE STACK 
PROCESS THE PARITY ERROR 


177777 040256 


000010 

040300 

004000 


SC13: ASL R1 .-SETUP TO ADDRESS WORDS 

MOV #-1, TIMER (R1) ;STOP THE TIMER 

ASR R1 

MOV R1.RMCS2CR4) /SELECT THE DRIVE 

MOVB ATABIT(R1).RMAS(ft4) /CLEAR THE ATTENTION BIT 

BIT IBIT11 . (R4) /DRIVE AVAILABLE ? 

BNE 1$ /BR IF AVAILABLE 

MOV #15000.. TIMER(RI) /START 15 SECOND TIMER AGAIN 

ASR R1 

BR 3S /EXIT 

1$: TST8 DPINT(RI) /INITIALIZING THE DRIVE ? 

BEQ 2S ;8R IF NOT 


000016 


035230 040256 


040204 
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DPJNT(RI) 
RO.DRVINT 

DRVSTA(RI) 

R2 
3$ 

PC.GETREQ 
#BIT15!BIT14 
PC.SVRH70 
PC.EMPTYQ 
3$ 

DPRQS(RI) 

PC* OPT 

sc4 


M 15 


SEQ 0194 


044066 

105061 

040204 


CLR8 

044072 

004037 

040534 


JSR 

044076 

000240 



NOP 

044100 

105761 

040164 


TST8 

044104 

003014 



BGT 

044106 

005702 



TST 

044110 

001416 



BEQ 

044112 

004737 

045366 


JSR 

044116 

052762 

140000 000016 


BIS 

044124 

004737 

045062 


JSR 

044130 

004737 

045332 


JSR 

044134 

000404 



BR 

044136 

105061 

040214 

2$: 

CLRB 

044142 

004737 

041236 


JSR 

044146 

000137 

043404 

3S: 

JMP 


CLEAR THE INIT INDICATOR 
GO INIT THE DRIVE 
DUMMY PARITY ERROR RETURN 
DRIVE ONLINE ? 

8R IF YES — START COMMAND 
QUEUE ENTRY FOR THE DRIVE 
8R IF NOT 
.GET DPB ADDRESS 
,16<&2) ; INFORM USER THAT DRIVE OFFLINE 

.-SAVE THE REGISTERS 
; EMPTY THE REQUEST QUEUE 

; CLEAR THE PORT REQUEST INDICATOR 
; START THE PENDING REQUEST 
.•PROCESS OTHER DRIVES 
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1 ; RM80 TIMER ROUTINE 


SEO 0195 


6 044152 

7 044156 

8 044160 

9 04*166 

10 044170 

11 044172 

12 044174 

13 044200 

14 044202 

15 044210 

16 044212 

17 044216 

18 044220 

19 044222 

20 044224 

21 044230 

22 044232 

23 044234 

24 044240 

25 .44242 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 044244 

38 044246 

39 044250 

40 044254 

41 044260 
044264 
044266 

42 044270 

43 044272 

44 044274 

45 044300 

46 044302 

47 044306 

48 044310 

49 044314 

50 044320 

51 044322 

52 044326 

53 044334 

54 044340 

55 044346 


005737 

001030 

112737 

104412 

005001 

005003 

005763 

002407 

166663 

003003 

004737 

000405 

005201 

005723 

022701 

003361 

104413 

105037 

012616 

000207 


040250 

000001 040251 


040256 

000002 040256 
044244 


000010 


040251 


010146 

010346 

013704 

010164 

004037 

000012 

044556 

105726 

100473 

105761 

001070 

105761 

001065 

013702 

020137 

001402 

004737 

052762 

004737 

012764 

105061 


;CALL: 

MOV 

*TIME,-(SP) 


JSR 

PC, RMTMR 

RMTMR: 

T ST 

ACTDRV 


BNE 

4$ 


MOVB 

#1 .ACTSTR 


SAVREG 

CLR 

R1 


CLR 

R3 

1$: 

TST 

TIMER(R3) 


BLT 

2S 


SUB 

2<SP), TIMER(R3) 


BGT 

2$ 


JSR 

PC, STO 


BR 

3$ 

2$: 

INC 

R1 

TST 

(R3) + 


CMP 

#8. ,R1 


BGT 

1$ 

3$: 

RESREG 



CLRB 

ACTSTR 

4$: 

MOV 

(SP)+, (SP) 


RTS 

PC 


ELAS°ED TIME IN MILLISECONDS ON THE STACK 
CALL RM80 TIME ROUTINE 

CHECK "ACT DRV & ACTSTR" 

IF NON ZERO EXIT 
SET "ACTSTR" 

SAVE RO - R5 
START WITH DRIVE 0 

IS THE TIMER RUNNING? 

BRANCH IF NO 

COUNT THE INTERVAL 

8R IF NO SOFTWARE TIMEOUT 

CALL SOFTWARE TIMEOUT ROUTINE 

GO TO THE EXIT 

MOVE TO NEXT DRIVE 

OUT OF DRIVES? 

BRANCH IF NO 
RESTORE RO - R5 

ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
: ADJUST THE STACK 
; RE TURN 


SOFTWARE TIMEOUT ROUTINE 


NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR 6REATER 


040310 

000010 

044670 


040204 STC 

040214 

040244 

040276 

045366 

101000 000016 1$: 
045062 

000040 000010 
040154 


STO 

MOV 

JSR 

RETURN 

MOV 

MOV 

MOV 

MOV 

JSR 

RMDS 

ST05 

TSTB 

BMI 

TSTB 

BNE 

TSTB 

BNE 

MOV 

CMP 

BEQ 

JSR 

BIS 

JSR 

MOV 

CLRB 


#DRVNUM,R1 
PC, STO 


; DRIVE NUMBER 
.-CALL: 


R1,-(SP) .SAVE R1 

R3, -(SP) ; SAVE R3 

RMADR,R4 ;6ET ADDRESS OF "RMCS1" 

R1,RMCS2(R4) .-SELECT THE DRIVE 
RO.RD.RM ;CALL THE READ ROUTINE 

.-REGISTER OFFSET 
.-•NED' RETURN 

(SP>+ ;1S 'DRY -1? 

ST02. ;BR IF YES 

DPINT(RI) .-TRYING TO INTI All ZE THE DRIVE ? 

ST02 *BR IF YES 

DPRQS(RI) -OUTSTANDING PORT REQUEST FOR THE DRIVE ? 

ST02 ;BR IF YES 

TRNSWT.R2 .-PICKUP TRANSFER WAIT QUEUE 

R1.DTUW .-TRANSFER UNDERWAY ON THIS DRIVE? 

1$ ; BRANCH IF YES 

PC.GETREQ ;GET DPB ADDRESS 

#8IT15!BIT09,16(fc2> :SET THE ERROR FLAGS ' 

PC.SVRH70 .-SAVE RH>0/RM80 REGISTERS 

«8IT05,RMCS2(R4) ;" INIT* ’ THE MASS BUS 

DRVACT(RI) .-DRIVE IS IDLE 


(SP>+ .-IS DRY-1? 

ST02. ;8R IF YES 

DPINT(RI) .-TRYING TO INTI All ZE THE DRIVE ? 

ST02 *BR IF YES 

DPRQS(RI) -OUTSTANDING PORT REQUEST FOR THE DRIV 

ST02 ;BR IF YES 

TRNSWT.R2 .-PICKUP TRANSFER WAIT QUEUE 

R1.DTUW .-TRANSFER UNDERWAY ON THIS DRIVE? 

1$ ; BRANCH IF YES 

PC.GETREQ ;GET DPB ADDRESS 

#8IT15!BIT09,16(ft2) :SET THE ERROR FLAGS 


V 
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R1 
R3 

RO.DRVINT 
ST05 

DRVACT(RI) 

AS 

TRNSWT.R2 
DTUW.Rl 
3S 

PC.GETREQ 


B 16 


SEQ 0196 


56 

044352 

005001 




CLR 

57 

044354 

005003 




CLR 

58 

044356 

004037 

040534 


2$: 

J SR 

59 

044362 

000475 




BR 

60 

044364 

105761 

040154 



TST8 

61 

044370 

001414 




BEO 

62 

044372 

013702 

040244 



MOV 

63 

044376 

023701 

040276 



CMP 

64 

044402 

001402 




8EQ 

65 

044404 

004737 

045366 



JSR 

66 

044410 

052762 

100400 

000016 

3$: 

BIS 

67 

044416 

105061 

040154 



CLR8 

68 

044422 

012763 

177777 

C40256 

<$: 

MOV 

69 

044430 

005723 




TST 

70 

044432 

005201 




INC 

71 

044434 

022701 

000010 



CMP 

72 

044440 

003346 




BGT 

73 

044442 

012737 

177777 

040276 


MOV 

74 

044450 

005037 

040244 



CLR 

75 

044454 

004737 

045300 



JSR 

76 

044460 

000500 




BR 

77 

044462 

116405 

000016 


ST02: 

MOVB 

78 

044466 

136105 

040300 



BITS 

79 

044472 

001017 




BNE 

80 

044474 

105761 

040204 



TSTB 

81 

044500 

001031 




BNE 

82 

04450 1 

105761 

040214 



TSTB 

83 

04 4506 

001045 




BNE 

84 

044510 

020137 

040276 



CMP 

85 

044514 

001267 




8NE 

86 

044516 

004037 

044670 



JSR 


044522 

000000 




RMCS1 


044524 

044556 




ST05 

87 

044526 

105726 




TSTB 

88 

044530 

100261 




BPL 

89 

044532 

105761 

040204 


ST03: 

TSTB 

90 

044536 

001003 




BNE 

91 

044540 

105761 

040214 



TSTB 

92 

044544 

001446 




BEQ 

93 

044546 

012763 

177777 

040256 

IS: 

MOV 

94 

044554 

000442 




BR 

95 

044556 

004737 

042334 


ST05: 

JSR 

96 

044562 

000437 




BR 

97 

044564 

105061 

040204 


ST06: 

CLRB 

98 

044570 

105061 

C40164 



CLR8 

99 

044574 

012763 

177777 

040256 


MOV 

100 

044602 

004737 

045366 



JSR 

101 

044606 

005702 




TST 

102 

044610 

001424 




BEQ 

103 

044612 

052762 

140000 

000016 


BIS 

104 

044620 

000414 




BR 

105 

044622 

012763 

177777 

040256 

ST07: 

MOV 

106 

044630 

105061 

040214 



CLRB 

107 

044634 

004737 

045366 



JSR 

108 

044640 

005702 




TST 

109 

044642 

00140“ 




BEQ 

110 

044644 

012762 

100004 

000016 


MOV 


START WITH DRIVE 0 

INIT. THIS DRIVE 
PARITY ERROR RETUPN 
DRIVE IDLE BEFORE THE INIT.? 
YES— BRANCH 

GET TRANSFER WAIT QUEUE 
WAS THERE I/O ON THIS DRIVE? 
YES— BRANCH 

GET THE DPB POINTER FROM QUEUE 


r V # Mb mb* « Wb ■ ' w I I 

fBIT15!BIT08. 16<R2> .-INFORM USER OF INIT. 
DRVACT(RI) 

#-1.TIMER(R3) 

<935 + 

R1 

#8. ,R1 

2S 

#-1 ,DTUW 
TRNSWT 
PC.CLRQUE 
ST09 

RMAS(R4).R5 
ATA8IT(R1 ) ,R5 
ST03 

DPINT(RI) 

ST06 

DPRQS(RI) 

ST07 
R1.DTUW 
ST01 

RO.RD.RM 


SET DRIVE ACTIVE TO IDLE 
STOP THE TIMER 
UPDATE THE INDEX 
INCREMENT THE DRIVE NUMBER 
LAST DRIVE BEEN CHECKED? 

NO— LOOP 

NO DATA TRANSFERS UNDERWAY 
CLEAR TRANSFER WAIT QUEUE 
CLEAR ALL REQUEST QUEUES 
EXIT 

READ ATTENTION REG 

IS ATTENTION FOR THIS DRIVE UP ? 

YES— BRANCH 

TRYING TO INTIALI2E THE DRIVE ? 

BR IF YES - DRIVE NOT ONLINE 
OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BR IF YES - NO RESPONSE TO REQUEST 
DATA TRANSFER UNDERWAY FOR THIS DRIVE 
BR IF NO 

CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED' RETURN 

BR IF *W)Y‘ -0 
INITIALIZING THE DRIVE ? 

3R IF INIT PENDING 
PORT REQUEST PENDING ? 

BR IF NOT 
STOP THE TIMER 
EXIT 

GO HANDLE THE 'NED* 

CLEAR THE INITIALIZE INDICATOR 
SET DRIVE OFFLINE 
STOP THE TIMER 
GET THE DPB ADDRESS 
REQUEST IN QUEUE ? 

BR IF NOT 


(SP>* 

ST01 

DPINT(RI) 

1 $ 

DPRQS(RI) 

STC9 

f-1 .TIMER (R3) 

ST09 
PC.CI8 
ST69 

DPINT(RI) 

DRVSTA(RI) 
f-1 ,TIMER(R3) 

PC.GETREQ 
R2 

f8IT15!BlT14,16 (kl) *' 'TlNFORM THE USER DRIVE NOT AVAILABLE 


ST08 

f-1, TIMER (R3) 
DPRQS(RI) 

PC.GETREQ 
R2 

ST09 .w 

#8IT15JBIT2.16(R2> 


FINISH 
STOP THE TIMER 
CLEAR PORT REQUEST INDICATOR 
GET DPB ADDRESS 
QUEUE ENTRY FOR DRIVE ? 

BR IF NONE 

.•INFORM USER OF PORT REQUEST ERROR 
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C 16 


SEQ 0197 


111 

044652 

004737 

045332 

ST08: 

JSR 

PC.EMPTYQ 

;CLEAR THE QUEUE FOR THE DRIVE 

112 

044656 

004737 

045062 


JSR 

PC.SVRH70 

.•SAVE THE REGISTERS 

113 

044662 

012603 


ST09: 

MOV 

(SP)+. R3 

.'RESTORE R3 

114 

044664 

012601 



MOV 

(SP)*,R1 

.'RESTORE R1 

115 

044666 

000207 



RTS 

PC 

.-RETURN 


SEQ 3198 
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D 16 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


ROUTINE TO READ A RH70/RN80 REGISTER 


CALL: 


JSR 

INDEX 

ERRADR 

RETURN 


RO.RD.RM 


044670 

011646 



RD.RM: 

MOV 

(SP). -(SP) 

044672 

013737 

040310 

044706 


MOV 

RMADR. RD.ADR 

044700 

062037 

044706 



ADD 

(RO)*, RD.ADR 

044704 

013727 



RD.RM1 : 

MOV 

a(PC)*,(PC>* 

044706 

000000 



RD.ADR: 

.WORD 

0 

044710 

000000 



RD.WRD: 

.WORD 

0 

044712 

013766 

044710 

000002 


MOV 

RD.WRD. 2(SP) 

044720 

013746 

040310 



MOV 

RMADR.-(SP) 

044724 

062716 

000010 



ADD 

#RMCS2, (SP> 

044730 

032736 

010000 



BIT 

f8ITl2,a(SP)* 

044734 

001002 




BNE 

RD.RM3 

044736 

005720 




TST 

(R0> + 

044740 

000402 




BR 

RD.RM4 

044742 

011000 



RD.RM3: 

MOV 

(RO) ,R0 

044744 

012616 




MOV 

(SP)*. (SP) 

044746 

000200 



RD.RM4: 

RTS 

RO 


GO READ A AGISTER 

REG. INDEX FROM BASE 

ERROR ADDRESS — PROCESS ERROR STARTING 

AT THIS ADDRESS 

CONTENTS OF REG. IS ON THF SfACK 

SAVE RO FOR RETURN 

FORM THE DESIRED ADDRESS 

USING THE BASE AND THE INDEX 

READ THE DESIRED REGISTER OF THE RM80 

ADDRESS IS FORMED HERE 

REG. CONTENTS PUT HERE 

RETURN IT TO THE USER 

PUT THE ADDRESS ON THE STACK 

FORM THE ADDRESS OF RMCS2 

CHECK THE 'NED* BIT 

IF NE, DRIVE NOT PRESENT 

ERROR FP.cE RETURN 

EXIT 

ERROR EXIT 


26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 044750 

37 044756 

38 044760 

39 044764 

40 044766 

41 044774 

42 044776 
045002 
045004 

43 

44 

45 045006 

46 045010 

47 045014 

48 045020 

49 045026 

50 045030 

51 045032 

52 045034 

53 045040 

54 045044 

55 045050 


.•ROUTINE TO WRITE A REGISTER 


CALL: 


MOV 
JSR 
INDEX 
'NED* RETURN 
RETURN 


DATA.-(SP) 

RO.WRT.RM 


016637 

012616 

012037 

001015 

122737 

002411 

004037 

000000 

045052 


000316 

042716 

112637 

063737 

012737 

000000 




013746 

062716 

032736 

001402 


000002 045030 WRT.RM: 
045032 

000150 045030 
044670 


MOV 

MOV 

MOV 

BNE 

CMP8 

BLT 

JSR 

RMCS1 

URT.R3 


2<SP),WRT.WD 
(SP)*.(SP) 
(RO)*. WRT.AD 
1$ 

J150.WRT.WD 

1$ 

RO.RD.RM 




SWAB 

(SP) 

177770 


B1C 

#*C7,(SP) 

045031 


movb 

(SP) *,WRT.WD*1 

040310 045032 

IS* 

ADD 

RMADR. WRT.AD 

WRT.R1 : 

MOV 

(PC)*.a(PC>* 


WRT.UD: 

.WORD 

0 


WRT.AD: 

.WORD 

0 

040310 


MOV 

RMADR.-(SP) 

C00010 


ADD 

fRMCS2,(SP) 

010000 


BIT 

f8IT12.a(SP)* 


BEQ 

WRT.R4 


.-DATA TO BE LOADED ON THE STACK 
;CALL THE ROUTINE TO LOAD (WRITE) THE REG. 
.-INDEX OF THE REGISTER TO BE LOADED 
.•ADDRESS TO RETURN TO IF 'NED* ERROR 
.•ERROR FREE RETURN 

.•SAVE THE WORD TO WRITE 
.•ADJUST THE STACK 

.-GET INDEX OF REGISTER TO BE WRITTEN 

.•BRANCH IF NOT RMCSl 

;IS THE COMMAND FOR DATA TRANSFERS? 

;YES— DON'T GET THE OLD A16 & A17. 8 PSEL 
.-CALL THE READ ROUTINE 
; REGISTER OrfSET 
.•'NED* RETURN 

;THE COMMAND BEFORE SENDING TO THE 
.-THE RH70/RM80 


FORM THE ADDRESS OF THE DISK REG. 
LOAD THE DESIRED REG. 

WORD TO WRITE GOES HERE 
ADDRESS IS FORMED HERE 
PUT THE ADDRESS ON THE STACK 
FORM THE ADDRESS OF RMCS2 
CHECK THE ‘NED* BIT 
IF EO. DRIVE IS PRESENT 



E 16 


SEO 0199 
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56 

045052 

011000 



URT.R3: 

NOV 

(RO).RO 

WRT.R5 ; 

TAKE THE ’NED' EXIT 

57 

045054 

000401 





BR 

EXIT 

58 

045056 

005720 



URT.R4: 

TST 

(R0) + 

ADJUST FOR ERROR FREE EXIT 

59 

60 
61 
49 

63 

045060 

000200 



URT.R5: 

RTS 

RO 







ROUTINE TO SAVE THE RH70/RN80 REGISTERS 






CALL: 



DPB POINTER TO R2 

64 







NOV 

#DP8ADR.R2 

65 

66 
67 







JSR 

PC.SVRH70 

SAVE THE DRIVES REG'S 

045062 

104412 



SVRH70: 

SAVREG 


SAVE RO - R5 

68 

045064 

005702 





TST 

R 2 

QUEUE ENTRY FOR THE DRIVE ? 

69 

045066 

001442 





BEQ 

68 

BR IF NONE 

70 

045070 

013704 

040310 




NOV 

RMADR.R4 


71 

045074 

111264 

000010 




NOVB 

(R2),RNCS2(R4) 

14<r2),R3 

SELECT DRIVE 

72 

045100 

016203 

C00014 




NOV 

GET THE ERROR TABLE POINTER 

73 

045104 

001433 





BEQ 

68 

EXIT IF NO ADDRESS 

74 

045106 

005037 

045142 




CLR 

38 

COUNTER 8 POINTER 

75 

045112 

023727 

045142 

000022 

1$: 

CMP 

38.#RMDB 

REACHED THE BUFFER REGISTER ? 

76 

045120 

001006 





BNE 

28 

BR IF NOT 

77 

045122 

032764 

000200 

000010 



BIT 

#8IT07.RNCS2(R4) 

; 'OR* SET ? 

BR IF SET 

78 

045130 

001002 





BNE 

28 

79 

045132 

005023 





CLR 

<R3) + 

STORE RMDB AS ZEROES 

80 

045134 

000405 





BR 

48 

CONTINUE 

81 

045136 

004037 

044670 


2$: 

JSR 

RO.RD.RN 

READ THE SELECTED REGISTER 

82 

045142 

000000 



3$: 

.WORD 

0 

REGISTER INDEX 

83 

045144 

045170 





5$ 

<SP)*.(R3H 

ERROR RETURN ADDRESS 

84 

045146 

012623 





NOV 

STORE THE REGISTER CONTENTS 

85 

045150 

023727 

045142 

0P n 046 

4$: 

CMP 

38,#RMEC2 

REACHED THE END ? 

86 

045156 

001406 





BEQ 

68 

BR IF YES 

87 

045160 

062737 

000002 

0*5142 



ADD 

#2.38 

INCREMENT THE REGISTER INDEX 

88 

045166 

000751 





BR 

18 

CONTINUE READING THE REGISTERS 

89 

045170 

004737 

042334 


58: 

JSR 

PC. CIS 

PROCESS THE 'NED* 

91 

045174 

013746 

001234 


6S: 

NOV 

SCPUOP.-(SP) 

#*C 1 74000, (SP) 
#30000, <SP)+ 

CHECK THE CPU (RH) TYPE 

92 

045200 

042716 

003777 




BIC 

LEAVE THE CPU TYPE BITS 

93 

045204 

022726 

030000 




CMP 

SEE IF RH70 

94 

045210 

001004 





BNE 

78 

IF NE. NO 

95 

045212 

063704 

040316 




ADD 

RHEXT.R4 

POINT TO RMBAE 

96 

045216 

012423 





MOV 

(R4)+,(R3>+ 

STORE THE CONTENTS 

97 

045220 

011413 





NOV 

(R4),(R3) 

GET RMCS3 

98 

045222 

104413 



7 $: 

RESREG 


RESTORE RO - R5 

102 

103 

104 

045224 

000207 





RTS 

PC 

RETURN 






iROUTINE TO SET 

THE INTERRUPT WITHOUT GETTING A "TRE" 

105 






CALL : 



; DRIVE NUMBER TO R1 
;SET -IE** 

106 







NOV 

#DRVNUN,R1 

107 







JSR 

PC. SET. IE 

108 







RETURN 



109 









; SAVE R4 

110 

045226 

010446 



SET. IE: 

MOV 

R4,-(SP) 

Vi 

045230 

013704 

040310 




MOV 

RMADR.R4 

; PICKUP ADDRESS OF RMCS1 

112 

045234 

010164 

000010 




NOV 

R1.RMCS2CR4) 

(r4).-(SP) 

.•SELECT DRIVE 

113 

045240 

011446 





NOV 

.-READ RMCS1 

114 

045242 

052716 

040000 




BIS 

#8IT14. (SP) 

.-SET THE "TRE" BIT OF THE WORD READ 

115 

045246 

000316 





SWAB 

(SP) 

.•ADJUST FOR DATO 

116 

045250 

112714 

000100 




NOVB 

#81 T06 , <R4 ) 

.-SET ‘'IE*' 
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F 16 


SEQ 0200 


117 045254 

118 045262 

119 045264 

120 045266 

121 045270 

122 045274 
125 045276 

124 

125 

126 


032764 

001002 

005726 

000402 

112664 

012604 

000207 


010000 000010 

000001 


IS: 

2 $: 


BIT 

#BIT12.RMCS2(R4) 

;IS *XED ,, =1? 
; YES— CL§AR '7RE” 

BNE 

IS 

TST 

(SP) + 

.•CLEAN OFF THE STACK 

BR 

2$ 


M0V8 

<SP)*.1(R4) 

.•CLEAR "TRE" 

MOV 

<SP)+, R4 

.’RESTORE R4 

RTS 

PC 

.•RETURN TO CALLER 


ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


127 



■CALL: 



128 



JSR 

PC, CLRQUE 


129 






130 

045300 

104412 CLRQUE: SAVREG 


SAVE RO - R5 

131 

045302 

012702 040224 

MOV 

#QDRV,R2 

QUEUE BASE ADDRESS 

137 

045306 

005022 

CLR 

(R2) + 

CLEAR ENTRY 


045310 

005022 

CLR 

(R2) + 

CLEAR ENTRY 


0*»5312 

005022 

CLR 

(R2)* 

CLEAR ENTRY 


045314 

005022 

CLR 

(R2) + 

CLEAR ENTRY 


045316 

005022 

CLR 

(R 2)* 

CLEAR ENTRY 


045320 

005022 

CLR 

(R 2)* 

CLEAR ENTRY 


045322 

005022 

CLR 

(R2) + 

CLEAR ENTRY 


045324 

005022 

CLR 

(R2) + 

CLEAR ENTRY 

139 

045326 

104413 

RESREG 


RESTORE RO - R5 

140 

045330 

000207 

RTS 

PC 


141 






142 



: EMPTY THE QUEUE SPECIFIED BY R1 


143 






144 



CALL: 



145 



MOV 

DRVNUM.R1 

; DRIVE NUMBER TO R1 

146 



JSR 

PC. EMPTYQ 


147 






148 

045332 

006301 EMPTYQ: ASL 

R1 


149 

045334 

005061 040224 

CLR 

QDRV(RI) 

; CLEAR DRIVE QUEUE 

150 

045340 

006201 

ASR 

R1 

.RESTORE R1 

151 

045342 

000207 

RTS 

PC 



152 

153 
'54 


ROUTINE TO PUT A REQUEST IN QUEUE 


155 



;CALL: 

156 



; MOV 

157 



; MOV 

158 



; JSR 

159 



; RETURN1 

160 



; RETURN2 

161 

162 045344 

006301 


DRVQUE: ASL 

163 045346 

005761 

040224 

TST 

164 045352 

001003 


BNE 

165 045354 

010261 

040224 

MOV 

166 045360 

005720 


TST 

167 045362 

006201 


IS: ASR 

168 045364 

000200 


2S: RTS 


169 

170 

171 

172 


fDRVNUM.RI 

#DPB,R2 

RO.DRVOUE 


R1 

QDRV(RI) 

1 $ 

R2. QDRV(RI) 

(r6)+ 

R1 

RO 


; DRIVE NUMBER 

; ADDRESS OF PARAMETER BLOCK 
;60 PUT REOUEST IN OUEUE 
.•RETURN HERE IF QUEUE IS FULL 
.•RETURN HERE IF REQUEST IS IN QUEUE 


.•TEST THE QUEUE ENTRY 

;IF NE. QUEUE ENTRY ALREADY THERE 

;ADD THE QUEUE ENTRY 

;TAKE RETURN 2 


.’RETURN TO USER 


ROUTINE TO GET THE “DPS" ADDRESS OF NEXT REQUEST IN QUEUE 
CALL: 



G 16 


SEQ 0201 
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173 

174 

175 

176 

177 

178 045366 

179 045370 

180 045374 

181 045376 

182 
1Q3 

184 

185 

186 

187 

188 

189 

190 045400 

191 045402 

192 045406 

193 045412 

194 045414 

195 


MOV fDRVNUM.RI 
JSR PC.GETREQ 
RETURN 


006301 

016102 040224 

006201 

000207 


GETREQ: ASL 
MOV 
ASR 
RTS 


R1 

QDRV(R1),R2 

R1 

PC 


ROUTINE TO ’ ‘POP* ' THE REQUEST 
CALL: 


006301 

016102 040224 
005061 040224 

006201 
000207 


MOV 

0DRVNUM.R1 

JSR 

RETURN 

PC.POPQUE 

ASL 

R1 

MOV 

QDRVCR1 ) »R2 

CLR 

QDRV(RI) 

ASR 

R1 

RTS 

PC 


DRIVE NUMBER TO R1 
GO GET THE REQUEST 
R2-"DPB" ADDRESS OF THE REQUEST 
R2=0 IF NO REQUEST IN QUEUE 


;GET THE REQUEST 
; RE TURN 
FROM QUEUE 


DRIVE NUMBER TO R1 
CALL TO REMOVE REQUEST 
R2-ADDRESS OF DP8 REMOVED 


;GET THE QUEUE ENTRY 
; CLEAR THE QUEUE 

.•RETURN TO USER 



H 16 


SEQ 0202 
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DATA. CONTROL. ft STATUS BLOCKS 


000001 

000002 

000003 

000004 

000006 

000010 

000011 

000012 

000014 

000016 




000066 


000100 



000114 

000115 

000116 

000117 

000120 

000122 

000124 


000126 

000130 

000132 


.SBTTL DATA. CONTROL, ft STATUS BLOCKS 


.•BLOCK LOCATION EQUATE STATEMENTS 


SFMT 

SCOMND 

SPSEL 

SWCNT 

$8UF 

SSEC 

STRK 

SCYL 

SREG 

STATUS 


SFMT+1 
SFMT+2 
SFMT +3 
SFMT+5 
SFMT +7 
SFMT+1 0 
SFMT+11 
SFMT+13 
SFMT+1 5 


FMT.HCI.ECI OR OFFSET CODE 
OPERATION CODE 
PORT SELECT ft BITS A16, A17 
WORD COUNT (2'S COMP) 

BUFFER ADDR OR REGISTER TABLE POINTER 
SECTOR ADDRESS OR 1ST REG ADDR 
TRACK ADDRESS OF LAST REG ADDR 
CYLINDER ADDR 

REGISTER STORAGE (IF ERROR) 

STATUS WORD (SET BY DRIVER) 


.•DRIVE'S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 


SURDL 

SSSEC 

SCODE 

SPACK 

SPREVO 

SPATTC 

SPREVA 

SENDAT 

SENDSK 

SOPERC 

SPOSIT 

SWTOFL 

SURITN 

SRDOFL 

SRfcAD 

STOTAL 

SSOFT 

SHARD 

SSKI 

SMISPO 

SPASSC 

SFAIR 

SHLDUC 

SSSENB 


= SFMT+1 7 
= SWRDL+2 
- SWRDL+4 
= SURDL +6 
= SWRDL+7 
= SWRDL+10 
= SWRDl+12 
= SWRDL+1 6 
= SURDL +22 
= SURDL *26 
= SWRDl+ 32 
S SURDL +36 
= SURDL +40 
= SURDL +44 
= SURDL +46 
= SURDL +5 2 
= SUPDL+54 
r SURDL *56 
= SURDL+60 
= SURDL +62 
= SURDL+64 
r SURDL +66 
= SURDL +70 
= SURDL+72 


WORD COUNT LENGTH (POSITIVE) 

SECTOR SIZE FOR CURRENT OPERATION (256. OR 258.) 

PRESENT COMMAND SELECTION CODE 

WRITE DATA PACK jKDICmTOR 

PREVIOUS COMMAND SELECTION CODE 

PATTERN CODE _ _ , 

PREVIOUS ADDRESS- TRK. SEC. CYL (DOUBLE WORD) 

END OF PASS DATA COUNT (DOUBLE UORD) 

END OF PASS SEEK COUNT (DOUBLE UORD) 

OPERATION COUNT (DOUBLE UORD) PER PASS 
SEEK COUNT (DOUBLE UORD) 

TOTAL WORDS WRITTEN OVERFLOW COUNT 
TOTAL WORDS WRITTEN COUNT (DOUBLE UORD) 

TOTAL WORDS READ OVERFLOW COUNT 
TOTAL WORDS READ COUNT (DOUBLE UORD) 

TOTAL ERRORS (ALL TYPES) COUNT 
•SOFT* ERROR COUNT 
'HARD' ERROR COUNT 
'SKI' ERROR COUNT 

PROG DETECTED MIS-POSITIONING ERROR COUNT 
PASS COUNTER 

OPERATION QUEUE 'FAIRNESS* COUNT 
HOLD UORD COUNT FOR RELBUF' ROUTINE 
SKIP SECTOR INDICATOR 


.•INDEX EQUATES TO THE NEXT OPERATION PARAMETERS 


SNCODE 

SNPATC 

SNSEC 

SNTRK 

SNCYL 

SNEXT 

JFIRST 


= SWRDL+74 
= SNCODE+1 
s SNCODE+2 

= sncode+3 

= SNCODE +4 
= SNCODE +6 
= SNCODE+1 0 


.-NEXT OPERATION CODE 
.-NEXT PATTERN 
;NEXT SECTOR 
.-NEXT TRACK 

;NEXT CYLINDER „ „ 

.•PARAMETER SELECTION INDICATOR 
.•FIRST OPERATION INDICATOR 


.•INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 


MAXCYL = SNCODE+1 2 
MINCVL = MAXCVL+2 
MAX TRK = MAXCVL+4 


MAXIMUM CYLINDER ADDRESS 
MINIMUM CYLINDER ADDRESS 
MAXIMUM TRACK ADDRESS 




SEQ 0203 
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DATA, CO* T ROL. I STATUS SLOCKS 


000134 

000136 

000140 


000142 

000144 


000146 


002130 


002140 

002142 

002144 

002146 

002150 

002152 

002154 

002156 

002160 

002162 

002164 

002166 


045416 

045420 

045432 

045434 


047556 


047632 001 

047634 

047646 051772 
047650 


052046 

052050 


MINTRK = MAXCYL+6 
MAXSEC = MAXCYL+10 
MINSEC = MAXCYL+12 


MINIMUM TRACK ADDRESS 
MAXIMUM SECTOR ADDRESS 
MINIMUM SECTOR ADDRESS 


;HDA SERIAL NUMBER CONTAINED IN DEC144 FILE 


SHSNL = MAXCYL+14 

SHSNM = SHSNL ♦2 


;LSB’S OF SERIAL NUMBER (DECIMAL) 
.'MSB'S OF SERIAL NUMBER (DECIMAL) 


.-DEC144 BAD SECTOR ADDRESS STORAGE AREA INDEX EQUATE 

SBDSEC = SHSNL +4 ;BAD SECTOR STORAGE TABLE PLUS TERMINATOR 

.•DRIVE (MBA) SERIAL NUMBER AREA INDEX EQUATE 

SDRVSN = S8DSEC+<126.*8.>+2 .'DRIVE (MBA) SERIAL NUMBER 


;RH/RM REGISTER EQUATES 


SRMOF 

SRMDC 

SRMHR 


SRMCS1 = SDRVSN+10 
SRMWC = SRMCS1+2 
SRMBA = SRMCS1U 
SRMDA = SRMCS1+6 
SRMCS2 = SRMCS1+10 
SRMDS = SRMCSH12 
SRMER1 = SRMCS1+14 
SRMAS = SRMCS1+16 
SRMLA = SRMCSU20 
SRMDB = SRMCS1+22 
SRMMR1 = SRMCSH24 
= SRMCS1+26 
= SRMCSH30 
= SRMCS1+32 
= SRMCS1+34 
SRMHR = SRMCS1+36 
SRMMR2 = SRMCS1+40 
SRMER2 = SRMCS1+42 
SRMEC1 = SRMCS1+44 
SRMEC2 = SRMCS1+46 
SRMBAE = SRMCS1+50 
SRMCS3 = SRMCS1+52 

.'BLOCK FOR DRIVE 0 
DRIVEO: .BYTE 0,0 
.BLKW 5 

.WORD .♦SRMCS1-SRE6 
.8LKB SRMCS3-SREG 

.'BLOCK FOR DRIVE 1 
DRIVE 1 : .BYTE 1,0 
.BLKW 5 

.WORD .+SRMCS1-SREG 
.8LKB SRMCS3-SREG 

; BLOCK FOR DRIVE 2 
DRIVE2: .BYTE 2,0 
.BLKW 5 


;RM REGISTER STORAGE 


; DRIVE NUMBER 0 


.'DRIVE NUMBER 1 


.'DRIVE NUMBER 2 
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SEO 0204 


052062 

052064 

054206 


. Wl'RD . ♦SRMCS1-SREG 
,SLKB SRMCS3-SREG 



054262 

054264 

054276 

054300 

003 

056422 

000 

.•BLOCK FOR DRIVE 3 

DRJVE3: .BYTE 3,0 
.8LKW 5 

.WORD . ♦SRMCS1-SREG 
.8LKB SRMCS3-SREG 

.•DRIVE 

NUMBER 3 

056476 

056500 

056512 

056514 

004 

060636 

000 

.-BLOCK FOR DRIVE 4 

DRIVE4: .BYTE 4,0 
.BLKW 5 

.WORD .♦$RMCS1-$REG 
.8LKB JRMCS3-SREG 

.•DRIVE 

NUMBER 4 

060712 

060714 

060726 

060730 

005 

063052 

000 

.•BLOCK FOR DRIVE 5 

DRIVES: .BYTE 5,0 
.BLKW 5 

.WORD .+SRMCS1-SREG 
.BLKB SRMCS3-SREG 

.■DRIVE 

NUMBER 5 

063126 

063130 

063142 

063144 

006 

065266 

000 

.•BLOCK FOR DRIVE 6 

DRIVE6: .BYTE 6,0 

BLKW 5 

[word .*$RMCS1-$REG 
.BLKB $RMCS3-*REG 

.•DRIVE 

NUMBER 6 

065342 

065344 

065356 

065360 

007 

067502 

000 

.•BLOCK FOR DRIVE 7 

DRIVE7: .BYTE 7,0 
.BLKW 5 

.WORD .+$RMCS1-$REG 
.BLKB SRMCS3-SREG 

.•DRIVE 

NUMBER 7 


114 

115 

116 

117 067556 

118 067557 

119 067560 

120 067561 

121 067562 

122 067564 

123 CJ7566 

124 067567 

125 067570 

126 067572 

127 067574 

128 

129 067576 


000 

000 

000 

000 

177776 

101174 

000 

000 

000000 

067576 

000000 


.•GENERAL PURPOSE PARAMETER BLOCK 

GENDPB: .BYTE 0 
.BYTE 0 
.BYTE 0 
.BYTE 0 
.WORD -2 
.WORD CYLNDR 
.BYTE 0 
.BYTE 0 
.WORD 0 
.WORD GENREG 
.WORD 0 

GENREG: .8LKU 24 


DRIVER PARAMETER BLOCK, DRIVE # 
OFFSET VALUE OR FMT16, HCI OR ECI 
COMMAND CODE 
PSEL, A16 AND A17 
WORD COUNT (NEG) 

BUFFER ADDRESS 

SECTOR ADDRESS 

TRACK ADDRESS 

CYLINDER ADDRESS 

ADDRESS TO SAVE ALL RH/RM REb f 

STATUS WORD 

REGISTER STORAGE 
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X U 


SEQ 0205 


1 

2 

3 

4 

5 

6 
7 


067646 
067720 
067756 
070014 
070051 

8 070105 

9 070160 

10 070223 

11 070256 

12 070307 

13 070361 

14 070404 

15 070440 

16 070461 

17 070512 

18 070565 

19 070644 

20 070712 

21 070773 

22 071020 

23 071055 

24 071107 

25 071152 

26 071205 

27 071262 

28 071324 

29 071362 

30 071413 

31 071475 

32 071544 

33 071610 

34 071671 

35 071765 

36 072062 

37 072150 

38 072222 

39 072277 

40 072335 

41 072400 

42 072444 


.SBTTL ERROR MESSAGES 


122 

no 

040 

EMI : 

125 

116 

105 

EM2: 

115 

101 

123 

EM3: 

115 

101 

123 

EM4: 

101 

104 

104 

EM5: 

122 

110 

040 

EM6: 

125 

116 

103 

EM10 

106 

101 

124 

EM11 

120 

105 

122 

EMI 2 

117 

120 

105 

EMI 3 

104 

122 

111 

EMI 4 

116 

117 

040 

EMI 5 

110 

105 

101 

EM20 

104 

101 

124 

EM21 

127 

122 

111 

EM22 

127 

122 

111 

EM23 

110 

105 

101 

EM24 

110 

105 

101 

EM25 

106 

117 

122 

EM26 

110 

105 

101 

EM27 

115 

111 

123 

EM30 

117 

120 

105 

EM31 

104 

122 

111 

EM32 

120 

101 

122 

EM33 

127 

122 

111 

EM34 

111 

116 

126 

EM35 

127 

122 

111 

EM36 

104 

101 

124 

EM37 

122 

110 

040 

EM40 

102 

125 

123 

EM41 

104 

101 

124 

EM42 

103 

101 

116 

EM43 

105 

122 

122 

EM44 

105 

103 

103 

EM45 

102 

125 

123 

EM46 

105 

103 

103 

EM47 

123 

105 

105 

EM50 

120 

122 

117 

EM51 

105 

103 

110 

EM52 

104 

122 

111 

EM60 


.ASCJZ /RH CONTROLLER INTERRUPT OCCURRED <RMAS=0>/ 

.ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 

.ASCIZ /MASSBUS PARITY ERROR <MCPE*1)/ 

.ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 

.ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 

.ASCIZ /RH CONTROLLER DIDN'T RESPOND TO ADDRESSING/ 

.ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 

.ASCIZ /FATAL MASSBUS PARITY ERROR/ 

.ASCIZ /PERSISTENT DEVICE UNSAFE/ 

.ASCIZ /OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 

.ASCIZ /DRIVE WENT OFFLINE/ 

.ASCIZ /NO RESPONSE TO PORT REQUEST/ 

.ASCIZ /HEADER CRC ERROR/ 

.ASCIZ /DATA CHECK ('DCK') ERROR/ 

.ASCIZ /WRITE CHECK ERROR - DATA CHECK COCK') SET/ 

.ASCIZ /WRITE CHECK ERROR - DATA CHECK ('DCK') NOT SET/ 

.ASCIZ /HEADER READ ERROR - 'FMT* BIT DROPPED/ 

.ASCIZ /HEADER READ ERROR - HEADER COMPARE I'HCE') ERROR/ 

.ASCIZ /FORMAT ERROR ('FER')/ 

.ASCIZ /HEADER COMPARE ( 'HCE') ERROR/ 

.ASCIZ /MISCELLANEOUS DRIVE ERROR/ 

.ASCIZ /OPERATION INCOMPLETE ('OPI') ERROR/ 

.ASCIZ /DRIVE TIMING ('DTE') ERROR/ 

.ASCIZ /PARITY ('PAR') ERROR AFTER OPERATION STARTED/ 

.ASCIZ /WRITE CLOCK FAILURE CWCF’) ERROR/ 

.ASCIZ /INVALID ADDRESS C1AE') ERROR/ 

.ASCIZ /WRITE LOCK <’WLE’> ERROR/ 

.ASCIZ /DATA CHECK C'DCK') SET DURING WRITE CHECK COMMAND/ 

.ASCIZ /RH CONTROLLER OR UNIBUS TRANSFER ERROR/ 

.ASCIZ /BUS ADDRESS OR WORD COUNT INCORRECT/ 

.ASCIZ /DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED/ 

.ASCIZ /CAN’T MATCH DATA READ WITH A PATTERN - UNKNOWN DATA PATTERN/ 

.ASCIZ /ERROR BIT(S) SET. BUT NO ERROR SIGNALED BY THE RH CONTROLLER/ 

.ASCIZ /ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/ 

.ASCIZ /BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 

.ASCIZ /ECC LOGIC FAILURE - PATTERN REGISTER IS ZERO/ 

.ASCIZ /SEEK INCOMPLETE ('SKI') ERROR/ 

.ASCIZ /PROGRAM DETECTED POSITIONING ERROR/ 

.ASCIZ /ECH ERROR - UNCORRECTABLE ECC ERROR/ 

.ASCIZ /DRIVE UNSAFE ERROR/ 
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SEQ 0206 


1 

2 

3 

4 

5 

6 
7 


072467 
072474 
072550 
072576 
072635 
072644 
072710 

8 072746 

9 073016 
10 073044 
12 073114 
14 


122 

104 

104 

104 

044 

104 

122 

122 

122 

122 

122 


115 

101 

DH1: 

.ASCI Z 

122 

111 

DH2: 

.ASCIZ 

122 

111 

DH3: 

. ASCI Z 

122 

111 

PH 4: 

.ASCIZ 

122 

115 

DH6: 

.ASCIZ 

122 

126 

DH14: 

.ASCII 

115 

115 


.ASCIZ 

115 

127 

DH15: 

.ASCII 

115 

104 


.ASCIZ 

115 

123 

DH16: 

.ASCIZ 

115 

102 

DH17: 

.ASCIZ 


.EVEN 


RMER2 RMMR2 RMAS/ 
BAD/ 


/RMAS/ 

/DRIVE RMDS RMER1 

/DRIVE REG ADR DATA/ 

/DRIVE REG ADR GOOD 
/SRMADR/ 

/DRV RMCS1 RMCS2 RMDS RMER1 / 

/RMMR2 RMER2 RMEC1 RMEC2/<CRl F> 

/RMWC RMBA RMDA RMAS RMLA / 
/RMDB RMMR1 RMDT/<CRLF> 

/RMSN RMOF RMDC RMHR STATUS/<CRLF> 
/RMBAE RMCS3/<CRLF> 



B ) 


SEQ 0207 
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ERROR MESSAGES 

1 073134 

001322 

000000 

040150 

DTI: 

.WORD 

2 

073140 

001220 

040146 

DT2: 

.WORD 

3 

073156 

001220 

044706 

044710 

DT3: 

.WORD 

4 

073166 

001220 

045032 

0*5030 

DT4: 

.WORD 

5 

073200 

001272 

000000 

002152 

DT6: 

.WORD 

6 

073204 

002140 

002150 

DTK: 

.WORD 

7 

073226 

002142 

002144 

002'' 46 

DT 1 5 : 

.WORD 

8 

073250 

002170 

002172 

0021 74 

0716: 

.WORD 

10 

073264 

002210 

002212 

000000 

DTI 7 ; 

.WORD 


PA6E 62 


A1TN.0 

DAI Vc . RMERRS . R*ERR$^2 . RNERRSK . *N6HRS*6 , AT , N . 0 
DRIVE.RO. ADR. RD.WRD.O 
DRJVE.WRT. AD. WRT.WD. RD.WRD.O 

Wsi *$RRCS2,SRNDS,$RN6R1 ,$RNNR2,SRNER2.$RMEC1 .SRNEC2.0 
SRNWC .iRMBA. SAMOA. SRMAS.SRMl A. SAMOS. JANNR1 .SAMOT.O 
SAMSN.SRMOF .SRMf'C.SRMHR, STATUS, 0 
SRMBAE ,SRMCS3,G 
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SEO 0208 

1 ERROR MESSAGES 

1 073272 

120 

122 

123 

LIN2C: .ASCJZ 

/PRSNT COMMAND: / 


2 073312 

040 

040 

120 

LIN2P: .ASCJZ 

/ PREV C0HHAND= / 


3 073333 

052 

040 

105 

LJN2S: .ASCJZ 

3* ERROR AT BAD TRACX/SECT0R8 


4 073367 

105 

122 

122 

LINM3: .ASCJZ 

/ERROR AT C/ 


5 073402 

040 

124 

000 

T: .ASCJZ 

/ T/ 


6 073405 

120 

122 

123 

LJNN3: .ASCJZ 

/PRSNT ADDR= C/ 


7 073423 

040 

123 

000 

S: .ASCJZ 

/ S/ 


8 073426 

040 

040 

120 

LJNP3: .ASCJZ 

/ PREV ADDR= C/ 


9 073445 

123 

124 

101 

LJNS3: .ASCJZ 

/START CYL= ' 


10 073461 

040 

040 

105 

LJNEN3: .ASCJZ 

/ END CYL= / 


11 073475 

040 

040 

101 

LJNA3: .ASCJZ 

/ ACTUAL C YL= / 


12 073514 

040 

040 

124 

LJNT3: .ASCJZ 

/ TRK= / 


13 073524 

040 

040 

122 

LJNCA3: .ASCJZ 

/ RMDC= / 


14 073535 

122 

115 

104 

LINDA3: .ASCJZ 

/RMDA= / 


15 073544 

122 

115 

102 

LJNB3: .ASCJZ 

/RMBA= / 


16 073553 

040 

040 

122 

LJNW3: .ASCJZ 

/ RMWC= / 


17 073564 

123 

124 

101 

IJNST3: .ASCJZ 

/START TRK= / 


18 073600 

123 

124 

101 

LJNSS3: .ASCJZ 

/START SEC= / 


19 073614 

102 

125 

106 

LJNM4: .ASCJZ 

/BUErER ADDR= / 


20 073632 

040 

040 

127 

LJNS4: .ASCJZ 

/ URD CNT= / 


21 073646 

040 

040 

101 

LJNX4: .ASCJZ 

/ ACTUAL NMBR WRDS XFRD= / 


22 073700 

105 

130 

120 

LJND5: . ASCJZ 

/EXPCTD DATA= / 


23 073716 

040 

040 

122 

LJN85: .ASCJZ 

/ RECEVD DATA= / 


24 073736 

040 

040 

127 

LJNP5: .ASCJZ 

/ WORD P0S= / 


25 073753 

110 

105 

101 

LJNS5: .ASCJZ 

/HEADER FROM ERROR SECTOR: / 


26 074006 

122 

115 

105 

LJNEP5: .ASCJZ 

/RMEC1= / 


27 074016 

040 

040 

122 

LJNE05: .ASCJZ 

/ RMEC2= / 


28 074030 

123 

105 

103 

LIN86: .ASCJZ 

/SECTOR IS ECC CORRECTABLE / 


29 074063 

123 

105 

103 

LJNC6: .ASCJZ 

/SECTOR READ CORRECTLY / 


30 074112 

’03 

117 

122 

LJNG6: .ASCJZ 

/CORRECTED ON / 


31 074130 

040 

040 

122 

LJNR6: .ASCJZ 

/ RETRIES/ 


32 074142 

125 

116 

1C3 

LINU06: .ASCJZ 

/UNCORRECTABLE AFTER / 


33 074167 

040 

040 

124 

LJN7M: .ASCJZ 

/ TOTAL MISPOS ERR: / 


37 074214 

124 

117 

124 

LJN7P: .ASCJZ 

/TOTAL SEEKS: / 


38 074232 

040 

040 

124 

LJN7S: .ASCJZ 

/ TOTAL SKI c"RR= / 


39 074254 

124 

117 

124 

LJN7T: .ASCJZ 

/TOTAL ERRORS:/ 


40 074272 

040 

040 

127 

LJN70X: .ASCJZ 

/ WOFL:/ 


41 074302 

040 

127 

122 

LJN7X: .ASCJZ 

/ URDS WRITN:/ 


42 074317 

040 

040 

122 

LIN70R: .ASCJZ 

/ ROFL:/ 


43 074327 

040 

127 

122 

LIN7R: .ASCJZ 

/ URDS READ:/ 


44 07'-343 

105 

122 

122 

LJN8K: .ASCJZ 

/ERROR DURING RETRY/ 


45 074366 

104 

101 

124 

LJN9B: .ASCJZ 

/DATA COMPARISON ERRORS/ 


46 074415 

040 

040 

040 

lIN9H: .ASCJJ 

/ EXPCTD RECEVD/<CRLF> 


47 074444 

114 

117 

103 

.ASCJZ 

/LOC DATA DATA/<CRLF> 


48 074473 

040 

040 

040 

LJN9J: .ASCJJ 

/ RECEVD/<CRLF> 


49 074512 

114 

117 

103 

.ASCJZ 

/LOC DATA/<CRLF> 


50 074531 

124 

117 

124 

LJN9E: .ASCJZ 

/TOTAL COMPARE ERRORS: / 


51 074560 

124 

110 

105 

LJN9G: .ASCJZ 

/THE DATA COMPARED OK/<CRLF> 


52 074606 

105 

122 

122 

LJN10A: .ASCJZ 

/ERROR BURST BEGINS AT WORD / 


53 074642 

040 

111 

116 

LJN10B: .ASCJZ 

/ IN DATA FIELD OF ERROR SECTOR/<CRLF> 


54 074702 

105 

122 

122 

LJN10C: .ASCJJ 

/ERROR WAS NOT IN THE DATA READ - /<CRLF> 


55 074744 

105 

103 

103 

.ASCJZ 

/ECC CORRECTION CAN'T BE PERFORMED/ 


56 075006 

105 

103 

103 

LJN10H: .ASCJJ 

/ECC CORRECTION RESUITS/<CRLF> 


57 075035 

040 

0<C 

040 

.ASCJJ 

/ BAD CORRECTED /<CRLF> 


58 075070 

101 

104 

104 

.ASCJZ 

/ADDR DATA DATA/<CRLF> 


59 075116 

103 

117 

H6 

LIN11H: .ASCJZ 

/CONTENTS OF ERROR SECTOR (REPORTED ABOVE)/<CRLF> 


60 075171 

101 

104 

10a 

LIN11: .ASCJZ 

/ADDR HEADER/<CRLF> 
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D 1 


SEO 0209 


61 075212 

101 

104 

104 

L IN1 1 A 

.ASCIZ 

/ADDR OATA/<CRLF> 

62 075231 

040 



BLNKS4 

.ASCII 

/ / 

63 075232 

040 



BLNKS3 

.ASCII 

/ / 

64 075233 

040 



BLNKS2 

.ASCII 

/ / 

65 075234 

040 

000 


BLNKS1 

.ASCIZ 

/ / 

66 075236 

122 

105 

124 

LINX5: 

.ASCIZ 

/RETRIEVED BY A RDHD COMMAND/ 


E 1 


SEQ 0210 
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EXER 
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o 
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TELETYPE MESSAGES 

1 

2 

3 075272 

077 

000 


.S8TTL TELETYPE MESSAGES 

QUES: .ASCI2 /?/ 

4 

075274 

075 

000 


EQUAL: .ASCIZ 

/=/ 

r- 

> 

075276 

075300 

054 

000 


COMMA: .ASCIZ 

/,/ 

6 

055 

000 


DASH: .ASCIZ 

/-/ 

7 

075302 

Oil 

000 


TAB: .ASCIZ 

<11> 

8 

075304 

104 

122 

in 

UNTMSG: .ASCIZ 

/DRIVE/ 

9 

075312 

040 

117 

106 

UNT0FF: .ASCIZ 

/ OFFLINE/ 

10 

075323 

040 

117 

116 

UNT0N: .ASCIZ 

/ ONLINE/ 

11 

075333 

040 

116 

117 

UNTN0T: .ASCIZ 

/ NOT BEING TESTED/ 

12 

075355 

040 

101 

114 

UNTASN: .ASCIZ 

/ ALREADY BEING TESTED/ 

13 

075403 

040 

116 

117 

N0TRM: .ASCIZ 

a NOT AN RM80a 

14 

075420 

040 

116 

117 

N0TPRS: .ASCIZ 

/ NOT PRESENT/ 

15 

075435 

040 

116 

117 

N0TAVL: .ASCIZ 

/ NOT AVAILABLE/ 

16 

075454 

040 

125 

116 

NOTSAF: .ASCIZ 

/ UNSAFE/ 

17 

075464 

040 

114 

117 

LODEV: .ASCIZ 

/ LOAD DEVICE/ 

18 

075501 

200 

104 

122 

SYSTAT: .ASCIZ 

<CRLF>/DRIVE STATUS:/ 

19 

075520 

122 

115 

070 

SRM80: .ASCIZ 

/RM80/ 

20 

075525 

200 

012 

052 

REPHD: .ASCIZ 

<CRLFXLF>/***** PERFORMANCE REPORT ***•*/ 

21 

075566 

052 

052 

052 

STAR30: .ASCII 


22 

075617 

052 

052 

052 

STAR5: .ASCIZ 

/*****/<CRLF> 

23 

075626 

200 

104 

122 

SUMHD: .ASCIZ 

<CRLF>/DRIVE SUMMARY, <OFLOW= 2,147,483,647. )/<CRLF> 

24 

075700 

007 

077 

106 

DROPNG: .ASCIZ 

<07>/?FATAl OR EXCESSIVE ERRORS/ 

25 

075734 

200 

105 

116 

ENDPAS: .ASCIZ 

<CRLF>/END OF PASS #/ 

26 

075753 

040 

117 

116 

MSGON: .ASCIZ 

/ ON / 

27 

075760 

200 

105 

116 

ENDTST: .ASCIZ 

<CRLF>/END OF TEST / 

28 

075776 

106 

117 

122 

MSGFOR: .ASCIZ 

/FOR / 

29 

076003 

200 

052 

052 

DEASS6: .ASCIZ 

<CRLF>/***** DRIVE DEASSIGNED/<CRLF> 

30 

076034 

200 

052 

052 

DRNUM: .ASCIZ 

<CRLF>/***** DRIVE #/ 

31 

076053 

040 

123 

124 

ASGND: .ASCIZ 

/ STARTED/ 

32 

076064 

200 

007 

077 

NEDCLK: .ASCIZ 

<CRLF><07>/? 'L* OR ’P* CLOCK REQUIRED ON SYSTEM/<CRLF> 

33 

076135 

116 

000 


N: .ASCIZ 

/N/ 

34 

076137 

131 

000 


Y: .ASCIZ 

/Y/ 

35 

076141 

056 

000 


PERIOD: .ASCIZ 

/./ 

36 

076143 

040 

077 

103 

MSWRO: .ASCIZ 

/ ’CAN’T WRITE IN ’READ ONLY’ HODE/<CRLF> 

37 

076206 

040 

077 

111 

INVLD: .ASCIZ 

/ ’INVALID COMMAND/<CRLF> 

38 

076231 

2 00 

105 

116 

ENTCOM: .ASCIZ 

<CRLF>/ENTER COMMAND: / 

39 

076252 

200 

105 

116 

ENTLMT: .ASCIZ 

<CRLF>/ENTER ADDRESS LIMITS :/<CRLF> 

40 

076302 

200 

105 

116 

ENTADR: .ASCIZ 

<CRIF>/ENTER BAD SECTR ADRS:/<CRLF> 

41 

076332 

072 

000 


COLON: .ASCIZ 

/:/ 

42 

076334 

116 

117 

116 

NONE: .ASCIZ 

/NONE/ 

43 

076341 

040 

077 

111 

BADENT: .ASCIZ 

/ 7INVALID ENTRY/<CRLF> 

44 

076362 

200 

106 

101 

MERR1 : .ASCIZ 

<CRLF>/FA!LED TO RETRIEVE BAD SECTOR FILE(DEC144) ON / 

45 

076442 

200 

111 

116 

MERR2: .ASCIZ 

<CRLF>/INVALID FILE<DEC144) STRUCTURE ON / 

46 

076506 

052 

040 

102 

MSFULL: .ASCIZ 

/* BAD SECTOR TABLE IS FULL */<CRLF> 

47 

076544 

103 

131 

114 

MSGCTS: ASCIZ 

/CYL, TRK,SEC= / 

48 

076562 

200 

104 

117 

MESFE: .ASCIZ 

<CRLr>/DO YOU WISH TO EXERCISE ONLY FE CYLINDERS (L) Y ? / 

49 

076646 

101 

122 

105 

SURE: .ASCIZ 

/ARE YOU SURE (L) N ? / 

50 

076674 

200 

052 

040 

FEONLY: .ASCIZ 

<CRLF>/* EXERCISER WILL OPERATE ON FE CYLINDERS ONLY */<CRLF> 

51 

076756 

007 

007 


OVRURT: .ASCII 

<0 7><07> 

52 

076760 

200 

Oil 

041 

•ASCII 

<CRLF>/ ! CUSTOMER DATA WILL BE OVERWRITTEN !/ 

53 

077027 

200 

Oil 

055 

.ASCII 

<CPLF>/ / 

54 

077076 

007 

007 

200 

.ASCIZ 

<07><07xCRLF XLF > 

55 

077103 

200 

012 

116 

NODRVS: .ASCIZ 

<CRLFXLF>/NO DRIVES ASSIGNED/<CRLF> 

56 

077131 

200 

120 

122 

MREAD: .ASCIZ 

<CRLF>/PROGRAM LOCKED IN “READ ONLY" MODE/<CRLF> 

57 

077176 

052 

040 

116 

NOENTY: .ASCIZ 

/* NO ENTRIES */<CRLF> 
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F 1 


SCO 0211 


58 

077216 

200 

104 

105 

LSTHDR: 

.ASCI2 

<CRLF >/DE C 1 44 AND MANUAL BAD SECTOR LIST/<CRLF> 

59 

077262 

052 

040 

101 

ALOST: 

.ASCJZ 

/* ALL CURRENT ENTRIES LOST */<CRLF> 

60 

077320 

110 

104 

101 

HDASN : 

.ASCJZ 

8HDA S/N: 8 

61 

077332 

104 

122 

126 

DRVSN: 

.ASCJZ 

8DRV S/N: 8 

62 

077344 

200 

103 

110 

MSPRM: 

.ASCI 7 

<CRLF>/CHANGE DRIVE PARAMETERS (L) N ? / 

63 

077406 

200 

124 

131 

MSWAIT: 

.ASCII 

<CRLF>/TYPE *C TO ABORT/ 

64 

65 

077427 

200 

127 

101 

.EVEN 

.ASCIZ 

<CRLF>/WAITING 2 MINUTES... TO START/<CRLF> 


SEO 021? 
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G 1 


.•PARAMETER ENTRY TABLE 


077466 
077474 
077502 
077510 
, 077516 

8 077524 

9 


077632 

077642 

100012 

077652 

077752 

077762 

100002 


100046 
100050 
100052 
100054 
100056 
100060 

43 

44 

54 100062 
100070 
100076 
100104 
100112 
100120 
100126 


017400 

077777 

077777 

000017 

000001 

000007 

000001 


10 077540 

077772 

000001 

11 077546 

100022 

000001 

12 077554 

100032 

000001 

13 077562 

077742 

000001 

14 077570 

000000 


1 5 

16 077572 

040 

057 

17 077576 

200 

103 

18 077632 

127 

122 

19 077642 

111 

116 

20 077652 

120 

101 

21 077662 

115 

101 

22 077672 

115 

111 

23 077702 

115 

101 

24 077712 

115 

111 

25 077722 

115 

101 

26 077732 

115 

111 

27 077742 

102 

101 

28 077752 

122 

101 

29 077762 

122 

101 

30 077772 

127 

122 

31 100002 

105 

116 

32 100012 

120 

101 

33 100022 

115 

105 

34 10003? 

122 

101 

35 



36 



37 



38 



39 100042 

100062 


42 100044 

100130 



100176 

100244 

100312 

100360 

100426 

100474 


077672 

077662 

077712 

077702 

077732 

077722 

000000 


001462 

001464 

001470 

001472 

001474 

001476 

001500 

001502 

001504 

001506 

001510 


040 

110 

104 

124 

124 

130 

116 

130 

116 

130 

116 

104 

116 

124 

124 

104 

123 

123 

116 


000000 

000000 

000000 

000000 

000036 

000036 


PARLST: 


SLASH: 
ASKPAR: 
PARI : 
PAR2: 
PAR3: 
PAR4: 
PAR5: 
PAR6: 
PAR7: 
PAR8: 
PAR9: 
PAR10: 
PAR11 
PARI 4 
PARIS 
PARI 6 
PARI 9 
PAR20 
PAR21 

.EVEN 


.WORD 

.WORD 

.WORD 

.UORD 

.WORD 

.UORD 

.WORD 

.UORD 

.UORD 

.UORD 

.UORD 

.UORD 

.ASCIZ 

.ASCJZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 


PARI. 7936.. URDCNT 
PAR2, 32767. , INTRVL 
PAR19. 32767.. PASSES 
PAR3. 15.. PATTERN 
PARI 1 ,1 .RANDUC 
PARK. 7, RATIO 
PARK. 1. ENDING 
PARI 5,1 .URTCHK 
PAR20.1 .MESSAGE 
PAR21.1, RANDOM 
PARI 0,1 .BADBLK 

0 .-TABLE TERMINATOR 

a / a 

<CRLF>/CHANGE PARAMETERS (L) N ? / 
/URDCNT / 

/INTRVL / 

/PATTERN/ 


/MAXCYL 
/MINCYL 
/MAXTRK 
/MINTRK 
/MAXSEC 
/MINSEC 
/BADBLK 
/RANDUC 
/RATIO 
/URTCHK 
/ENDING 
/PASSES . 
/MESSAGE/ 
/RANDOM / 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


.•PARAMETER TABLE POINTERS 
TABLE: .UORD TABLEO 
.UORD TABLE 1 
.UORD TABLE2 
.UORD TABLE3 
.UORD TA8LE4 
.UORD TABLE 5 
.UORD TABLE6 
.UORD TABLE7 


FOR ADDRESS LIMITS 

; PARAMETER TABLE FOR DRIVE 0 
PARAMETER TABLE FOR DRIVE 1 
PARAMETER TABLE FOR DRIVE 2 
PARAMETER TABLE FOR DRIVE 3 
PARAMETER TABLE FOR DRIVE 4 
PARAMETER TABLE FOR DRIVE 5 
PARAMETER TABLE FOR DRIVE 6 
PARAMETER TABLE FOR DRIVE 7 


045546 

045544 

045552 

045550 

045556 

045554 


.•PARAMETER TABLE FOR ADDRESS LIMITS 
TABLEO: .UORD PAR5.0.MINCYL+DRIVE0 
.UORD PAR4.0.MAXCYL+DRIVE0 
.UORD PAR7.0.MINTRK+DRIVE0 
.UORD PAR6.0.MAXTRK+DRIVE0 
.UORD PAR9.30. .MINSEC+DRIVEO 
.UORD PAR8.30. .MAXSEC+DRIVEO 
.UORD 0 .-TERMINATOR 


100130 077672 000000 047762 TABLE 1 : .UORD PAR5.0.MINCYL+DRIVE1 
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SEQ 0213 


100136 
1 00144 
100152 
100160 
100166 
100174 

100176 

100204 

100212 

100220 

100226 

100234 

100242 

100244 

100252 

100260 

100266 

100274 

100302 

100310 

100312 

100320 

100326 

100334 

100342 

100350 

100356 

100360 

100366 

100374 

100402 

100410 

100416 

100424 

100426 

100434 

100442 

100450 

100456 

100464 

100472 

100474 

100502 

100510 

100516 

100524 

100532 

100540 


077662 

077712 

077702 

077732 

077722 

000000 

077672 

077662 

077712 

077702 

077732 

077722 

000000 

077672 

077662 

077712 

077702 

077732 

077722 

000000 

077672 

077662 

077712 

077702 

077732 

077722 

000000 

077672 

077662 

077712 

077702 

077732 

077722 

000000 

077672 

077662 

077712 

077702 

077732 

077722 

000000 

077672 

077662 

077712 

077702 

077732 

077722 

000000 


000000 

000000 

000000 

000036 

000036 


000000 

000000 

000000 

000000 

000036 

000036 


000000 

000000 

000000 

000000 

0000^6 

000036 


000000 

000000 

000000 

000000 

000036 

000036 


000000 

000000 

000000 

000000 

000036 

000036 


000000 

000000 

000000 

000000 

000036 

000036 


000000 

000000 

000000 

000000 

000036 

000036 


047760 

047766 

047764 

047772 

047770 


052176 

052174 

057202 

052200 

052206 

052204 


054412 

054410 

054416 

054414 

054422 

054420 


056626 

056624 

056632 

056630 

056636 

056634 


061042 

061040 

061046 

061044 

061052 

061050 


063256 

063254 

063262 

063260 

063266 

063264 


065472 

065470 

065476 

065474 

065502 

065500 


.WORD PAR4.0.MAXCYL+DRIVE1 
.WORD PAR7.0.MINTRK+DRIVE1 
.WORD PAR6.0.MAXTRK+DRIVE1 
.WORD PAR9.30..MINSEC+DRIVE1 
.WORD PAR8.30..MAXSEC+DRIVE1 
.WORD 0 ; TERMINATOR 

TABLE2: .WORD PAR5.0.MINCYL+DRIVE2 
.WORD PAR4.0.MAXCYL+DRIVE2 
.WORD PAR7.0.MINTRK+DRIVE2 
.WORD PAR6 , 0 . MAX TRK+DRI VE 2 

.WORD PAR9.30..MINSEC+DRIVE2 
.WORD PAR8.30..MAXSEC+DRIVE2 
.WORD 0 ; TERMINATOR 

TA8LE3: .WORD PAR5.0.MINCYL+DRIVE3 
.WORD PAR4.0.MAXCYL+DRIVE3 
.WORD PAR7.0.MINTRK+DRIVE3 
.WORD PAR6.0.MAXTRK+DRIVE3 
.WORD PAR9.30..MINSEC+DRIVE3 
.WORD PAR8.30..MAXSEC+DRIVE3 
.WORD 0 .‘TERMINATOR 

TABLE4: .WORD PAR5.0.MINCYL+DRIVE4 
.WORD PAR4.0.MAXCYL+DR1VE4 
.WORD PAR7.0.MINTRK+DRIVE4 
.WORD PAR6.0.MAXTRK+DRIVE4 
.WORD PAR9.30. .HINSEC+DRIVE4 
.WORD PAR8.30. .MAXSEC+DRIVE4 
.WORD 0 ; TERMINATOR 

TABLE5: .WORD PAR5.0.MINCYL+DRIVE5 
.WORD PAR4.0.MAXCYL+DRIVE5 
.WORD PAR7.0.MINTRK+DRIVE5 
.WORD PAR6.0.MAXTRK+DRIVE5 
.WORD PAR9.30. .MINSEC+DRIVE5 
.WORD PAR8.30. .MAXSEC+DRIVE5 
.WORD 0 .‘TERMINATOR 

TABLE6: .WORD PAR5.0.MINCYL+DRIVE6 
.WORD PAR4.0.MAXCYL+DRIVE6 
.WORD PAR7.0.MINTRK+DRIVE6 
.WORD PAR6.0.MAXTRK+DRIVE6 
.WORD PAR9.30. .MINSEC+DRIVE6 
.WORD PAR8.30. .MAXSEODRIVE6 
.WORD 0 .‘TERMINATOR 

TA8LE7: .WORD PAR5.0.MINCYL+DRIVE7 
.WORD PAR4.0.MAXCYL+DRIVE7 
.WORD PAR7.0.MINTRK+DRIVE7 
.WORD PAR6.0.MAXTRK+DRIVE7 
.WORD PAR9.30. .NINSEC+DRIVE7 
.WORD PAR8.30..MAXSEC+DRIVE7 
.WORD 0 .-TERMINATOR 
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ROUTINE TO SIZE MEMORY 


I 1 


SEO 0214 


1 


100542 

100544 

100546 

100552 

100556 

100564 

100572 

100576 

100602 

100604 

100606 

100612 

100620 

100624 

100626 

100630 

100632 

100636 

100640 

100644 

100650 

100654 

100660 

100664 

100666 

100670 

100672 


010046 

010146 

013746 

013746 

012737 

012737 

013746 

013746 

010600 

104400 

012637 

012737 

012701 

005711 

005721 

000775 

162701 

010006 

012637 

012637 

012637 

012637 

010137 

012601 

012600 

000207 

000000 


.SBTTL ROUTINE TO SIZE MEMORY 


* t**mt***»»**mt***«***»#**»**t»»t»»*t»»iM»»tM»»M 

•CALL: 

* JSR PC, (SIZE 

* RETURN 

•SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


000114 

000116 

000116 000114 
000002 000116 
000004 
000006 


000006 

100632 000004 
020000 


000002 

000006 

000004 

000116 

000114 

100672 


(SIZE: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

;;SET THE ERRVEC 
TRAP 
MOV 
MOV 
MOV 

1$: TST 

TST 
BR 

2$: SUB 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 

SLSTAD: .WORD 


; ; SAVE RO ON THE STACK 
;;SAVE R1 ON THE STACK 
; ; SAVE MEMORY ERROR VECTOR PS t 


PC 


;; IGNORE PARITY ERRORS WHILE SIZING 


RO.-(SP) 

RI.-(SP) 
a#1l4.-(SP) 
a#116,-(SP) 

#116,8*114 
#RTI.a#116 

a#ERRVEC,-(SP) ,* ; SAVE PRESENT ERROR VECTOR PS l PC 
a#ERRVEC*2,-(SP) 

SP.RO ;;SAVE THE STACK POINTER 

PS TO THE PRESENT PS 

;;PUSH OLD PSU AND PC ON STACK 
(SP)+,?#ERRVEC*2 ;;SAVE THE PSW IN a#ERRVEC*2 

#2$,a#ERf\'.' c C ; ; SET FOR TIMEOUT 

#20600, R1 .-.'FIRST ADDRESS 

(R1) ; ; TEST THIS ADDRESS 

(R1 )♦ .-.'STEP TO NEXT ADDRESS 

1$ ;;TRY ANOTHER 

#2,R1 .-.'DROP BACK 

RO. SP ;;RESTORE THE STACK 

(SP)*,a#ERRVFC*2 ; .-RESTORE ERROR VECTOR 
(SP) ♦,8#ERRVEC 


(SP)*,a#116 
(sp)+. a#ii4 
R1, SLSTAD 
(SP)*. R1 
(SP)*. RO 
PC 
0 


;; RESTORE MEMORY ERROR VECTOR 

; ;LAST ADDRESS 
; .-RESTORE R1 
; .-RESTORE RO 

;; CONTAINS THE LAST ADLESS 



SCO 0215 
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BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS 


J 1 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


48 


.SBTTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS 

THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS OF THE RH/RM 
IS SETUP FOR THE PROPER ADDRESS. IT WILL ALSO READ THE ADDRESS 
FROM THE TTY IF REQUIRED. 

NOTE: THIS ROUTINE DESTROYS R0-R4 
CALL: 


JSR 

RETURN 


PC .BUSADR 


100674 

005737 

001336 


BUSADR: TST 

CHGADR 

100700 

002053 



BGE 

3$ 

100702 

005037 

001336 


CLR 

CHGADR 

100706 

104401 

001203 


TYPE 

,$CRLF 

100712 

005227 

177777 


INC 

(T-1 

100716 

001402 



BEQ 

1$ 

(00720 

104401 

001203 


TYPE 

,$CRLF 

100724 

005037 

001340 


1$: CLR 

cflag 

100730 

012700 

001272 


MOV 

dfSRMADR.RO 

100734 

104401 

101046 


TYPE 

.MRMCS1 

100740 

011046 



MOV 

(RO).-(SP) 

100742 

104402 



TYPOC 


100744 

104401 

075233 


TYPE 

.BLNKS2 

100750 

104411 



RDLIN 


100752 

012601 



MOV 

<SP)+.R1 

100754 

005737 

001340 


TST 

CFLAG 

100760 

001361 



BNE 

1$ 

100762 

004537 

101064 


JSR 

R5.CK.NUM 

100766 

000756 



BR 

IS 

100770 

012700 

001274 


2$: MOV 

(TSRMVEC.RO 

100774 

104401 

101055 


TYPE 

.MRMVEC 

101000 

011046 



MOV 

(RO).-(SP) 

101002 

104402 



TYPOC 


101004 

104401 

075233 


TYPE 

.8LNKS2 

101010 

104411 



RDLIN 


101012 

012601 



MOV 

<SP)+.R1 

101014 

005737 

001340 


TST 

CFLAG 

101020 

001341 



BNE 

IS 

101022 

004537 

101064 


JSR 

R5.CK.NUM 

101026 

000760 



BR 

2$ 

101030 

012700 

001272 


3$: MOV 

#$RMADR # RO 

101034 

012701 

040310 


MOV 

(TRMADR.R1 

101040 

012021 



MOV 

(R0)+,(R1)* 

101042 

012021 



MOV 

(R0)+.CR1) + 

101044 

000207 



RTS 

PC 

101046 

122 

115 

103 

MRMCS1 : .ASCIZ 

BRMCS1=a 

101055 

122 

115 

126 

MRMVEC: .ASCIZ 

8RMVEC-9 


INPUT FROM TTY REQUESTED? 

NO— BRANCH 

YES— CLEAR THE REQUEST FLAG 
TYPE A CR-LF 
FIRST TIME THRU ? 

BR IF YES 
CR-LF 

CLEAR CONTROL C FLAG 
FIRST ADDRESS 
"RMCSI 2 " 

PRESENT RMCS1 ADDRESS 
TYPE IT 
TYPE 2 BLANKS 
GET THE ENTRY 
ADDRESS OF ASCII TEXT 
WAS IT CONTROL C ? 

BR IF YES 

ENTER AND STORE THE NEW ADDRESS 
ERROR EXIT 
VECTOR ADDRESS 
'Y*MVEC=" 

PRESENT RH/RM VECTOR ADDRESS ON THE STACK 

TYPE IT 

TYPE 2 BLANKS 

READ THE ENTRY 

ASCII TEXT ADDRESS 

WAS IT CONTROL C ? 

BR IF YES 

ENTER AND STORE NEW ADDRESS 
ERROR EXIT 

FIRST ADDRESS OF NEW PARAMETERS 
FIRST ADDRESS OF WHERE TO PUT THEM 
BUS ADDRESS 
VECTOR ADDRESS 
RETURN 


K 1 


SEQ 0216 
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CK.NUM - CHECK NUMBER (OCTAL) 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 101064 

13 101066 

14 101070 

15 101072 

16 101076 

17 101100 

18 101102 

19 101104 

20 101110 
21 101112 
22 101116 

23 101120 

24 101122 

25 101124 

26 101126 

27 101130 

28 101132 

29 101134 

30 101140 

31 101142 

32 101144 

33 101146 

34 101150 

35 101152 

36 101154 

37 101156 

38 101160 

39 101162 

40 101164 

41 101166 

42 101170 

43 101172 

44 

45 101174 

46 

47 

48 

49 


010246 

010346 

010446 

012703 000006 
005002 
112104 
001424 

120427 000060 
103425 

120427 000067 
101022 
006302 
103420 
006302 
103416 
006302 
103414 

042704 177770 
060402 
005303 
001401 
000754 
112104 
001004 
005702 
001401 
010210 
005725 
012604 
012603 
012602 
000205 


102200 

000200 


.S8TTL CK.NUM - CHECK NUMBER (OCTAL) 

.-THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 

;AND FORMS AN OCTAL NUMBER IN R 2 

•CALL* 

• MOV fADR.RO .-ADDRESS TO PLACE NEW NUMBER 

' MOV #ADR,R1 .-ADDRESS OF ASCIZ STRING 

; JSR R5, CK.NUM ;R5 CHANGED 

RET .-ERROR EXIT 

} RET .-NORMAL EXIT 

CK.NUM: MOV R2.-(SP) JAVE R2 

MOV R3,-(SP) .-SAVE R3 

MOV R4,-(SP) .-SAVE R4 

MOV A6.R3 ;MAX OCTAL DIGITS IN THE NUMBER 

CLR R2 .-FINAL OCTAL VALUE 

1$: MOVB (RD + .R4 ;GET CURRENT POINTED BYTE 

BEQ 3$ .-BRANCH. IF TERMINATOR DETECTED 

CMP8 R4.#'0 .-SMALLER THAN ASCI I -0 ? 

BLO 5$ ; YES. ERROR EXIT 

CMP8 R4,#'7 .-LARGER THAN ASCI I -7 ? 

SHI 5$ .-YES. ERROR EXIT 

ASL R 2 .-SHIFT LEFT 


.-OCTAL DIGIT 

.-ERROR IF CARRY BIT SET 

.-CHOP OFF HIGHER BITS 

.-APPENDING CURRENT DIGIT TO NUMBER 

.-DECREMENT BYTE COUNT 

.-BRANCH. IF LAST BYTE 

.-LOOPING BACK 

.-CHECK TERMINATOR 

; ERROR EXIT 

; FINAL VALUE = 0 

.-YES. THEN NOT REPLACE THE ORIGINAL VALUE 

; REPLACE THE ORIGINAL VALUE 

.-ADJUST FOR NORMAL RETURN 

.-RESTORE R4 

.-RESTORE R3 

.-RESTORE R2 

.-EXIT 

.-ONE SECTOR WORD CTR MAX SIZE 


CALL: 

MOV 

fADR.RO 


MOV 

0ADR.R1 


JSR 

R5. CK.NUM 


RET 



RET 


CK.NUM: 

MOV 

R2.-(SP) 

MOV 

R3.-(SP) 


MOV 

R4,-(SP) 


MOV 

*6,R3 


CLR 

R2 

IS: 

MOVB 

(RD + .R4 


BEQ 

3$ 


CMP8 

R4,#'0 


BLO 

5$ 


CMP8 

R4.# , 7 


SHI 

5$ 


ASL 

R 2 


BCS 

5$ 


ASL 

R2 


BCS 

5$ 


ASL 

R 2 


BCS 

5$ 


BIC 

#1 77770, R4 


ADD 

R4.R2 


DEC 

R3 


BEQ 

2$ 


BR 

1$ 

2$: 

MOVB 

(RD + .R4 

BNE 

5$ 

3$: 

TST 

R2 


BEQ 

4$ 


MOV 

R2. (RO) 

4$: 

TST 

(r5)+ 

5$: 

MOV 

(SPH.R4 


MOV 

(SP) +.R3 


MOV 

(SP)+, R2 


RTS 

R5 

CYLNDR: 

.BLKU 

258. 


ENDPGM=. 
.END 200 
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ABASE = 
A8NRML 
ACDU1 = 
ACDW2 = 
A P K 

ACpUOP= 

ACTDRV 

ACTSTR 

ADDWO = 

ADDU1 = 

AODU10= 

ADDW1 1 = 

ADDW12= 

ADDU13= 

ADDU14= 

ADDW15= 

ADDU2 = 

ADDU3 = 

ADDW4 = 

ADDU5 = 

ADDW6 = 

AD0W7 = 

AD0U8 = 

ADDW9 = 

AOEVCT= 

ADEVM = 

AtNV * 

AENVM = 

AFATAL= 

ALOST 

AMADR1= 

AMADR2= 

AMADR3= 

aMADR4= 

AMAMS1= 

AMAMS2= 

AMAMS3= 

AMAHS A = 

AMS6AD= 

AMSGLG= 

AMSGTY= 

AMTYP1= 

AMTYP2= 

AMTYP3= 

AMTYP4= 

AOE ' 

APASS = 

APR I OR = 

APTCSU= 

APTENV= 

APTSIZ- 

APTSPO= 

ASGNO 

ASGN1 

ASGN2 

ASGN3 

ASGN4 


176700 

031264 



000000 

040250 

040251 

000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
“00 
00 
00 
uOO 
000000 
000 
000000 
000 
000000 
000000 
000 
.00 
077262 
000000 
000000 
000 
000000 
000 
000000 
“00 
00 
00 
00 
00 
ooooco 
000000 
000000 
000000 
001000 
000000 


000040 

000001 

000200 

000100 

076053 

025764 

026040 

026130 

026300 


ASGN6 
ASGN7 
ASKPAR 
ASNERR 
ASNLST 
4SNMSG 
ASSIGN 
ASWREG= 
ATA = 
ATABIT 
ATESTN= 
ATTN 
ATO = 
ATI = 
AT 2 = 

AT3 = 
AT4 = 
AT5 = 
AT6 = 
AT7 = 
AUNIT = 
AUSWR = 
AUTLST 
AVAIL 
AVECT1= 
AVECT2= 
A16 = 

A17 = 

BADBLK 
BADENT 
BADSEC 
BADTMO 
BAI = 
BEGCOD 
BEGPAT 
BEGUC 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 a 
BIT10 = 
BIT11 a 
BIT12 a 
8IT13 = 
BIT14 a 
BIT15 = 
BIT2 = 
BIT3 a 
BIT4 = 


026302 
026314 
077576 
031154 
001542 
031200 
025666 
000000 
100000 
040300 
OGOOOO 
0C1322 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000000 
000000 
032012 
001610 
000254 
000000 
000400 
00100 ^ 
0 ColO 
076341 
001342 
003450 
000010 
001514 
001512 
001516 


r » 

i 

i 

• 

•I 

• 

• 

• 

• 



i 

• 

T 

•f 

T 

» 

• 

• 



000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 


000010 

000020 


BIT5 = 

BIT6 a 

BIT7 a 

BIT8 = 

BIT9 a 

BLKmDR 

BLNKS1 

BLNKS2 

BLNKS3 

BLNKS4 

BPTVEC= 

BSE = 

BUFTBL 

SUSaDR 

CFLAG 

CHGADR 

CHKUC 

CI1 

CIS 

CJ4 

CIS 

CI8 

CKBUS 

CKCLK 

CKCLK1 

CKCLK2 

CKCLK3 

CKERR 

CKFMT 

CKHCE 

CKLMTS 

CKSUR a 

CK.CHR 

CK.DEC 

CK. DIG 

CK.NUH 

CK.OCT 

CLKFLG 

CLOCK 

CLR = 

CLRDPB 

CLRQUE 

CMCNT 

CMCYL 

CMDAT 

CMHED 

CMPAR 

CMPARD 

CMPLMT 

CMPRES 

CMPRT 

CMPRX 

CMSEC 

CMSTR 

CMSTR2 

CMTRK 

COLON 


000040 
000100 
000200 
000400 
001000 
002056 
075234 
075233 
075232 
075231 
000014 
100000 
001654 
100674 
001 34C 
001336 
020330 
041516 
041650 
041756 
042312 
042334 
013154 
023422 
023516 
023566 
023620 
013062 
011232 
011406 
020130 
104407 
033020 
032772 
033072 
101064 
032744 
001312 
025110 
000040 
026630 
045300 
001370 
001372 
013500 
013424 
013240 
013244 
001460 
020750 
014060 
014052 
001374 
013342 
013466 
001375 
076332 


1 


SEQ 


COMMA 

075276 

DRIVE4 

056476 

COMTBL 

002076 

DR I VE 5 

060712 

CPSAVE 

035224 

DRIVE6 

063126 

CR = 

000015 

DRIVE7 

065342 

CRLF a 

000200 

DRNUM 

0’6034 

CTRAP 

034574 

DROP 

031204 

CYLIMT 

001422 

DROPNG 

075700 

CYLNOR 

101174 

ORQ = 

004000 

DASH 

075300 

DRVACT 

040154 

DATAPK 

026600 

DRVCLR= 

000111 

DAT AO 

002370 

DRVER 

011200 

DATA1 

002430 

DRVINT 

040534 

DATA10 

003070 

DRVNO 

001324 

DATA11 

003130 

DRVPAR 

001442 

DATA12 

003170 

DRVPRM 

027054 

DATA13 

003230 

DRVQUE 

045344 

DATA14 

003270 

DRVSN 

077332 

DATA15 

003330 

DRVSTA 

040164 

DATA2 

002470 

DRVTYP 

040174 

DATA 3 

002530 

DRY = 

000200 

DATA4 

002570 

DSUR = 

177570 

DATA5 

002630 

DTE = 

010000 

DATA6 

002670 

DTEER 

011772 

DATA7 

002730 

DTUW 

040276 

DATA8 

002770 

DTOO = 

000001 

DATA9 

003030 

DT01 = 

000002 

DCK a 

100000 

D T02 = 

000004 

DCKER 

010072 

DT03 = 

000010 

DCKER1 

010254 

DT04 a 

000020 

DDISP = 

177570 

DT05 = 

000040 

DDRVS 

001544 

DT06 = 

0001 00 

DEASGN 

026356 

DT07 a 

000200 

DEASSG 

076003 

DT08 = 

000400 

DEC2 

001436 

DTI 

073134 

DH1 

072467 

DTK 

073204 

DH14 

072644 

DT15 

073226 

DH15 

072746 

DT16 

C73250 

DH16 

073044 

DT17 

073264 

DH17 

073114 

DT2 

073140 

DH2 

072474 

DT3 

073156 

DH3 

072550 

DT4 

073166 

DH4 

072576 

DT6 

073200 

DH6 

072635 

DVA a 

004000 

DISPLA 

001156 

DVC = 

000200 

DISPLY= 

104414 

ECBADO 

001412 

DISPRE 

000174 

ECBAD1 

001420 

DLT = 

100000 

ECBIT 

001376 

DONE 

007550 

ECC 

014472 

DPE = 

000010 

ECCX 

015230 

DPINT 

040204 

ECC1 

015074 

DPR = 

000400 

ECC2 

015224 

DPRQS 

040214 

ECGD 

001410 

DRIVE = 

001220 

ECGD' 

001416 

DRIVE 0 

045416 

ECH = 

000100 

DRIVE1 

047632 

ECI = 

004000 

DRIVE2 

052046 

ECMSKO 

001402 

DRIVE3 

054262 

ECMSK1 

001404 



M 1 


SFQ 0218 


CZRNAAO RM80 PERF EXER MACRO V04.00 K-JAN-82 15:16:58 PAGE 63-2 
SYMBOL TABLE 


ECSEC 

001400 

E0P2 

031370 

1NCMIS 

024714 

LINR6 

074130 

MOPE = 

000400 

ECURD 

001406 

EQUAL 

075274 

INCSKI 

024670 

LINSS3 

073600 

MERR1 

076362 

ECWRD1 

001414 

ERCTR 

001364 

INCSOF 

024620 

LINST3 

073564 

MERR2 

076442 

EMPTYQ 

045332 

ERPRC1 

007356 

INCTOT 

024740 

LINS3 

073445 

MESFE 

076562 

EMTVEC= 

000030 

ERPROC 

007342 

INTRVL 

001464 

LINS4 

073632 

MESSAG 

001504 

EMI 

067646 

ERR = 

040000 

INVLD 

076206 

LINS5 

073753 

MINCYL= 

000130 

EM10 

070160 

ERROR = 

104000 

IOTVEC= 

000020 

LINT3 

073514 

MINSEC= 

000140 

EM1 1 

070223 

ERRVEC= 

000004 

IR 

000100 

LINU06 

074142 

MINTRK= 

000134 

EM12 

070256 

FACTOR 

016240 

I SR 

042452 

LINV3 

073553 

MINUTE 

001346 

EMI 5 

070307 

FAIRNS 

001332 

IVC = 

010000 

LINX4 

073646 

MNTBL 

002124 

EM14 

070361 

FEFLAG 

001434 

KSR 

025254 

LINX5 

075236 

HOH = 

020000 

EMI 5 

070404 

FEONLY 

076674 

KSR1 

025262 

LIN10A 

074606 

MOL = 

OIOCOO 

EM2 

067720 

FER = 

000020 

LBC = 

002000 

LIN108 

074642 

MREAD 

077131 

EM20 

070440 

FE1 

001430 

LBT = 

002000 

LIN10C 

074702 

MRMCS1 

101046 

EM21 

070461 

FE2 

001432 

LF 

000012 

LI Ml OH 

075006 

MRMVEC 

101055 

EM22 

070512 

FILBUF 

016632 

LIMIT 

001366 

LIN11 

075171 

MSFULL 

076506 

EM23 

070565 

FILLZ 

032464 

LINA3 

073475 

LIN11A 

075212 

MSGCTS 

076544 

EM24 

070644 

FILLO 

032572 

UN83 

073544 

LIN11H 

075116 

MSGFOR 

075776 

EM25 

070712 

FMTER 

012166 

LIN85 

073716 

LIN2C 

073272 

MSGON 

075753 

EM26 

070773 

FMT16 s 

010000 

LIN86 

074030 

LIN2P 

073312 

MSPRM 

077344 

EM27 

071020 

FRSTER 

001356 

LINCA3 

073524 

LIN2S 

073333 

HSWAIT 

077406 

EM3 

067756 

FO = 

000002 

LINC6 

074063 

LIN3.1 

022120 

MSWRO 

076143 

EM30 

071055 

FI = 

000004 

LIND A3 

073535 

LIN3.3 

022226 

MXF = 

001000 

EM31 

071107 

F2 

000010 

LINDEC 

023234 

LIN3.4 

022260 

MXWNDW 

040320 

EM32 

071152 

F3 

000020 

LIND5 

073700 

LIN6.2 

022722 

M.DPID 

032106 

EM33 

071205 

F4 = 

000040 

LINEN3 

073461 

LIN7M 

074167 

H.DP40 

032144 

EM34 

071262 

GENDP8 

067556 

LINE05 

074016 

LIN70R 

074317 

M.DP41 

032200 

EM35 

071324 

GENPAR 

017370 

LINEP5 

074006 

LIN70X 

074272 

M.DP42 

032210 

EM36 

071362 

GENREG 

067576 

LINE1 

021134 

LIN7P 

074214 

M.DP44 

032242 

EM37 

071413 

GETADR 

027650 

LINE2 

021214 

LIN7R 

074327 

M.DP50 

032254 

EM4 

070014 

GETBUF 

016242 

LINE2A 

021364 

LIN 7 S 

074232 

N 

076135 

EM40 

071475 

GETID 

027550 

LINE2B 

021402 

LIN7T 

074254 

NED = 

010000 

EM41 

071544 

GETLMT 

027462 

LINE3 

021654 

LIN7X 

074302 

NEDCLK 

076064 

EM42 

071610 

GETPAT 

020070 

LINE3A 

021662 

LIN8M 

074343 

NEM = 

004000 

EM43 

071671 

GETREG= 

000141 

LINE36 

021670 

LIN98 

074366 

NEUASN 

026556 

EM44 

071765 

GETREM 

032014 

LINE3C 

021702 

LIN9E 

074531 

NEUUNT 

001566 

EM45 

072062 

GETREQ 

045366 

LINE3D 

021712 

LIN9G 

074560 

NODRVS 

077103 

EM46 

072150 

GO 

000001 

LINE3E 

021760 

LIN9H 

074415 

noenty 

077176 

EM47 

072222 

GODRIV 

016710 

LINE3F 

022046 

LIN9I 

C74473 

NOMTCH 

012646 

EM5 

070051 

GTSWR = 

104406 

LINE4 

022324 

LKPAR 

JU5232 

NONE 

076334 

EM50 

072277 

HCE = 

000200 

LINE5 

022414 

LODEV 

075464 

NOTAVL 

075435 

EM51 

072335 

HCEER 

012230 

LINE5A 

022556 

LODPAR 

020 00 

NOTPP c 

075420 

EM52 

072400 

HCI = 

002000 

LINE5B 

022624 

LSC = 

ooAooo 

NOTR' 

075403 

EM6 

070105 

HCRC = 

000400 

LINE6 

022666 

LSTAD 

001334 

NOTSrtr 

075454 

EM60 

072444 

HCRCER 

011054 

LINE6A 

022700 

LSTHDR 

077216 

NSA - 

.00000 

ENDCMP 

014334 

HDASN 

077320 

LINE6C 

022706 

MAIN 

006240 

OFFDIR= 

000001 

ENDCON 

001446 

HOUR 

001344 

LINE6D 

022714 

MAINDA 

006266 

OFF ON = 

000001 

ENDING 

001500 

HT = 

000011 

LINE7 

022746 

MAIN1 

006404 

OFLIN 

007446 

ENDPAS 

075734 

HZ 

001314 

LINE7A 

023076 

MAIN2 

006522 

ONES 

003272 

ENDPGM= 

102200 

IAE = 

002000 

LINE8 

023170 

MANTER 

030254 

ONESEC 

001352 

ENDSEK 

001452 

IAEER 

012106 

LING6 

074112 

MASK 

001326 

OPE = 

020000 

ENDTST 

075760 

IBSAVE 

035226 

LINM3 

073367 

MATCH 

014402 

OPI = 

020000 

ENTADR 

076302 

IDLE 

007104 

LINM4 

073614 

MAXCYL= 

000126 

OPIER 

011666 

ENTCOM 

076231 

IE 

000100 

LINN3 

073405 

MAXER 

001456 

0PIER1 

01 1 732 

ENTLHT 

076252 

ILF - 

000001 

LINOCT 

0 23202 

MAXSEC= 

000136 

OPT 

041236 

ENTPR 

005542 

ILR = 

000002 

LINP3 

073426 

MAXTRK= 

000132 

OPTBL 

002104 

E0P1 

031344 

INCHRD 

024644 

LINP5 

073736 

MCPE = 

020000 

OR = 

000200 
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ORDERQ 
OVRWRT 
PACK 
PAR = 
PARENT 
PARER 
PARLST 
PARI 
PAR 10 
PAR1 1 
i PARK 
PARI 5 
PARK 
PARK 
PAR2 
PAR20 
PAR21 
PAR 3 
PA R4 
PAR5 
PAR6 
PAR 7 
PAR8 
PAR9 
PASSES 
PAT - 
PATTER 
PCLOCK 
PERFEX= 
PERIOD 
PFEIH 
PFECH1 
PFECH2 
PFECH3 
PFECH4 
PF TSTN 
PGE = 
PGM = 
PIP r 
PIRQ s 
PI ROVE = 
POP OUE 
POSER 
PROCES 
PR T BAD 
PRTIM 
PRO ' 


001520 

076756 

001320 

000010 

031030 

0120K 

077466 

077632 

077742 

077752 

077762 

077772 

100002 

100012 

077642 

100022 

100032 

077652 

077662 

077672 

077702 

077712 

077722 

077732 

001470 

000020 

001472 

001310 

000001 

076141 

035406 

03541t> 

035500 

035532 

035542 

035546 

002000 

001000 

020000 

177772 

000240 

045400 

011614 

007252 

015236 

007512 

000000 

000040 

000100 

000140 

000200 

000240 


177776 


PWRFLG 

PURVEC= 

QDRV 

OUES 

RANCYL 

RANDOM 

RANDUC 

RANPAT 

RANSEC 

RANSIZ 

RANTRK 

RANXIT 

RATIO 

RDCHR = 

RDDAT = 

RDHD = 

RDLIN = 

RDONLY 

RDY = 

RD.ADR 

RD.RM 

RD.RM1 

RD.RM3 

RD.RM4 

RD.WRD 

READDR 

READHD 

READING 

RE CAL = 

RECALT 

RECALO 

REDAPK 

RELBUF 

RELSE = 

REPHD 

REPLZ 

RESREG= 

RESVEC= 

RETRY 

RHEXT 

RMADR 

RMAS = 

RMBA = 

RMBAE = 

RMCS1 = 

RNCS2 = 

RMCS3 = 

RMDA = 

RHDS = 

RMDC = 

RMDS - 

RNDT = 

RMEC1 = 

RMEC2 = 

RMERRS 

RMER1 = 

RNER2 = 


037716 

000024 

040224 

075272 

017600 

001506 

001474 

020040 

017670 

017746 

017634 

020060 

001476 

104410 

000171 

000173 

104411 

001440 

000200 

044706 

044670 

044704 

044742 

044746 

044710 

023254 

015652 

000121 

000107 

015534 

015624 

026566 

016376 

000113 

075525 

032470 

104413 

000010 

001330 

040316 

040310 

000016 

000004 

000050 

000000 

000010 

000052 

000006 

000022 

000034 

000012 

000026 

000044 

000046 

040146 

000014 

000042 


RMHR = 
RMINIT 
RMLA = 
RMMR1 = 
RMMR2 = 
RMOF = 
RMR = 
RMSN = 
RMTMR 
RMVEC 
RMUC = 
RM80 
RNOP = 
RTC = 
RTNCTR 
RTURN 
R6 = 
R7 
S 

SATPOU 

SAVEEG 

SAVER1 

SAVER5 

SAVREG= 

SC 

SCMND 
SCOPE = 
SC04 = 
SCI = 
SC10 = 

sen 

SC12 

SC13 

SC2 = 

SC20 = 

SC3 

SC4 

SC5 

SC6 

SC8 

SDETAL 

SEARCH= 

SECLMT 

SECOND 

SEEK = 

SEEKFG 

TELDRV= 

SETFMT= 

SETVEC 

SET. IE 

SHDTYP 

SIZE70 

SIZNEM 

SKI = 

SKIER 

SKIP 

SLASH 


000036 
040322 
000020 
000024 
000040 
000032 
000004 
000030 
044152 
040312 
000002 
041000 
000101 
000117 
015510 
031766 
X000006 
X000007 
073423 
037736 
040252 
001360 
001362 
104412 
043334 
026464 
000004 
000400 
000100 
001000 
043672 
043750 
044012 
s 000200 
: 002000 
043400 
043404 
043416 
043504 
043656 
023752 
: 000131 
001424 
001350 
: 000105 
040254 
= 000145 
: 000143 
005570 


004656 

005024 


$ 3 $ 


N 1 


SEQ 0 51C ' 


SPOTCK 
SRCHWT 
SSE = 
SSEI = 
STA 

STACK = 

START 

START1 

START2 

STAR30 

STAR5 

STATIN 

STATIS 

STATPR 

STKLMT= 

STNDAT 

STO 

ST01 

ST02 

ST03 

ST05 

ST06 

ST07 

ST08 

ST09 

SUMARY 

SUMHD 

SUPRS 

SUPRSL 

SUPR1 

SUPR2 

SURE 

SVRH70 

SWR 

SWREG 

SWTIM 

SUO = 

SUOO = 

SU01 

SU02 

SU03 

SU04 

SU05 

SV06 

SUO 7 

SU08 

SU09 

SU1 

SW10 

sun 

swi 

SU13 

SWI 4 

SU15 

SW2 

SU3 

SU4 


020764 

040246 

000040 

001000 

006006 

001100 

003532 

003542 

003560 

075566 

075617 

001316 

016072 

023626 

177774 

002324 

044244 

044274 

044462 

044532 

044556 

044564 

044622 

044652 

044662 

023714 

075626 

032300 

032264 

032312 

032354 

076646 

045062 

001154 

000176 

007410 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 


SU5 = 
SU6 = 
SU7 = 
SW8 = 
SW9 = 
SYSTAT 
T 

TAB 

TABLE 

TABLE 0 

TABLE 1 

TA8LE2 

TA8LE3 

TABLE4 

TABLE5 

TABLE6 

TABlE 7 

TAB.XY= 

TAP = 

TBITVE= 

TD 

THEAD 

TIMER 

TKVEC = 

TPVEC = 

TRAPVE= 

TRE = 

TRFER 

TRKLMT 

TRNSUT 

TRTVEC= 

TST1 

TYDRV 

TYHDA 

TYLIST 

TYPDRV 

TYPDS = 

TYPE = 

TYPHDA 

TYPOC = 

TYPON = 

TYPOS = 

TYPRI4 

UNS = 

UNSAF 

UNTASN 

UNTMSG 

UNTNOT 

UNTOFF 

UNTON 

UPE = 

US1 = 

US2 = 

US4 = 

VV = 

uait 

UATPAK 


000040 

000100 

000200 

000400 

001000 

075501 

073402 

075302 

100042 

100062 

100130 

100176 

100244 

100312 

100360 

100426 

100474 

001114 

040000 

000014 

042514 

017514 

040256 

000060 

000064 

000034 

040000 

012272 

001426 

040244 

000014 

0C3550 

032622 

032652 

030650 

032626 

104405 

104401 

032656 

104402 

104404 

104403 

032574 

040000 

012532 

075355 

075304 

075333 

075312 

075323 

020000 

000001 

000002 

000004 

000100 

001632 

026612 
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WCE 

040000 


sdblk 

036546 

SLKS 

001304 

SPUR UP 037610 

SSUPR2 

032454 

WCF 

000040 


SD82D 

03 7222 

SLLVEC 

001306 

SQUES 001202 

SSVPC = 

000210 

122000 

WCFER 

012434 


SD620 

037416 

SLONUM 

037124 

SRAMD 037024 

SSWR = 

WCHKX = 

000000 


JOECVL 

037402 

SLPADR 

001122 

SRDCHR 034170 

SSWREG 

001230 

000016 

UCKD = 

000151 


SDEVCT 

001216 

SLPERR 

001124 

SROLIN 034260 

STATUS 2 

WCKER 

010546 


SDEVH 

001264 

SLPVEC 

001302 

SRDOFL 2 000064 

STERM = 

000032 

UCKHD 2 

000153 


SOIV 

032040 

SLSTAD 

100672 

SRDSZ 2 000017 

STESTH 

001212 

024764 

WC.HK 

043246 


SDOAGH 

031762 

SMADR1 

001240 

SREAD = 000066 

STIME 

WLE 2 

004000 


SDRVSM 2 

002130 

SMADR2 

001244 

SREG 2 000014 

STKB 

901162 

WLEFR 

012140 


SOSPLV 

032716 

SHADR3 

001250 

SRESRE 037164 

STXCHT 

033310 

WRDCNT 

001462 


SDTBL 

036536 

XMADR4 

001254 

SRETRY 015744 

STKINT 

033326 

1 URL = 

004000 


SENDAD 

031752 

SMAIL 

001206 

SRHEXT= 000001 

STKQENx 

033325 

WRTCHK 

001502 


SENDAT 2 

000036 

SHAMS 1 

001236 

SRMADR 001272 

STKQIN 

033312 

WRTDAT 2 

000161 


SENDCT 

031736 

SHAM 52 

001242 

SRHAS = 002156 

STKOOU 

033314 

JRTHO - 

000163 


SENDS* 2 

000042 

SHAHS3 

001246 

SRHBA = 002144 

STKQSR 

033316 

WRTPK 

017000 


SENV 

001226 

SHAMS 4 

001252 

SRMBAE- 002210 

STXS 

001160 

URT .AD 

045072 


SENVM 

001227 

SMBADR 

001102 

SRMCS1 2 002140 

STKSRV 

033376 

WRT.RH 

044750 


$EOP 

031312 

SHF LG 

037020 

SRMCS2= 002150 

STMPO 

001174 

WRT.R1 

045026 


SEOPCT 

031730 

SHI SP0= 

000102 

SRHCS3= 002212 

STH 2 

000002 

WRT.R3 

045052 


JERFLG 

001117 

SHNEU 

034563 

SRMDA * 002146 

STNPUR 

037332 

URT.R4 

045056 


SERHAX 

001131 

SMS GAD 

001222 

SRHDB 2 002162 

STOTAL= 

000072 

URT.R5 

045060 


SERROR 

034640 

SHSGLG 

001224 

SRHDC 2 002174 

STP8 

001166 

uRT.yo 

045030 


SERRPC 

001132 

SHSGTV 

001206 

SRMDS = 002152 

STPFLG 

001173 

XXDP 

001444 


SERRTB 

003370 

SMS UR 

034552 

IRHDT = 002166 

STPS 

001164 

Y 

076137 


SERRTY 

035230 

SHTYP1 

001237 

SRHEC1= 002204 

STRAP 

040060 

ZEROS 

002370 


JERTTL 

001126 

SHT YP2 

001243 

SRHEC2= 002206 

STRAP2 

040102 

ZROINO 

001354 


JETA8L 

001226 

SHTYP3 

001247 

SRMER1- 002154 

STRK 2 

000011 

SAPTHD 

001100 


SETEND 

001272 

SHTYP4 

001253 

SRHER2 2 002202 

STRP 2 

000015 

SATYC 

036602 


IF AIR = 

000106 

SNCODE 2 

000114 

SRMHR = 002176 

STRPAD 

040114 

SATY1 

036556 


SFATAL 

001210 

SNCYL = 

000120 

SRHLA 2 002160 

STSTH 

001104 

SATY3 

036564 


IFF LG 

037022 

SNEXT = 

000122 

SRMHR 1 2 002164 

STSTNM 

001116 

SATY4 

036574 


JFILLC 

001172 

SNPATC 2 

000115 

SRMHR 2= 002200 

STTYIH 

034514 

SAUTOB 

001150 


SFILLS 

001171 

SMS EC 2 

000116 

SRMOF 2 002172 

STYPDS 

036332 

S8ASE 

001262 


$FJRST= 

000124 

SNTRK 2 

000117 

SRMSN 2 002170 

STYPE 

035550 

S8DADR 

001136 


SFHT s 

000001 

SHULL 

001170 

SRMVEC 001274 

STYPEC 

035762 

SBOOAT 

001142 


SGDADR 

001134 

SNWTST 2 

000000 

SRMUC = 002142 

STYPEX 

036102 

sbosec= 

000146 


SGDDAT 

001140 

SOCNT 

036326 

SRM80 075520 

STYPOC 

036130 

S8ELL 

001176 


SGET42 

031742 

SOCTVL 

037520 

SRTNAD 031 764 

STYPON 

036144 

SfiUF = 

000006 


SGTSUR 

033716 

SOHODE 

036330 

SSAVRE 037126 

STYPOS 

036104 

SCDUI 

001266 


SHARD = 

000076 

SOPERC 2 

000046 

SSAVR6 037714 

SUNIT 

001220 

SCDU2 

001270 


SHD = 

000000 

SPACK 2 

000026 

SS82D 033230 

SUNITH 

001110 

SCHARC 

036100 


SHJ8TS 

001100 

SPASS 

001214 

SS820 033260 

SUSUR 

001252 

SCX SUP 

033626 


SHI HUM 

037122 

SPASSC- 

000104 

SSEC = 000010 

*VECT1 

001256 

SCHTAG 

001114 


SHLDWC 2 

000110 

spasth 

001106 

SSETUP 2 000156 

SVECT2 

001260 

SCH3 2 

000000 


SHSNL = 

000142 

SPATTC- 

000030 

5S1ZE 100542 

SWCHT = 

000004 

SCM4 = 

000001 


SHSFfl 2 

000144 

SPOSIT= 

000052 

037720 

SSXI = 000100 

SWRDL 2 

000020 

SCNTLC 

054533 


SICNT 

001120 

SPOUER 

SSOFT = 000074 

SURITN 2 

000060 

SCNTLG 

034545 


SILLUP 

037710 

SPREVA= 

000032 

SSSEC 2 000022 

SUTOFL 2 

000056 

SCNTLU 

034540 


SiNTAG 

001151 

SPREVO= 

000027 

SSSENB- 000112 

SXOFF = 

000023 

SCOOE = 

000024 


SITEMB 

001130 

SPSEL * 

000003 

SSTUP * 177777 

SXON 2 

000021 

SCOP*© 2 

000002 


SLF 

001204 

SPURAD 

037704 

SSUPRL 032364 

SSGET4= 

000000 

SCPOOP 

001234 


slflg 

037021 

SPWRDH 

037536 

SSUPRS 032400 

SOFILL 

036327 

SCRLF 

001203 


SLKCS6 

001300 

SPWRHG 

037700 

SSUPR1 032412 

• SX 2 

001100 

$CYL = 

000012 


SLXCSR 

001276 






. A8S. 

102200 

000 









000000 

001 
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C 2 


SEO 0221 




D 2 


SEQ 0222 
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MGET4 

35-1 

35-1# 


44-1* 

SOF ILL 

44-1 

44-1# 

44-1* 

S40CAT 

41-1 




SAP THU 

5-8 

5-8# 



S4STAT 

46-1 

46-1 



satyi 

46-1# 




SATY3 

43-1 

46-1# 



SATY4 

41-1 

46-1# 



SATYC 

46-1 

46-1# 

9-76 

9-168 

MUTOJ 

6-0# 

9-30* 

40-1 

40-1 

40-1 


XBASE 

6-0# 

9-71 

9-73 


S60ADR 

6-0# 




X80DAT 

6-0# 



32-95 

SBOSEC 

21-22 

31-36 

32-18 

SBELL 

6-0# 

22-10 

40-1 

40-1 

S6UF 

11-98* 

11-134* 

12-738 

13-10 

56-96 

56-111 

59-9# 


SCDW1 

6-0# 


31-53 

31-85* 

SCDW2 

6-0# 

31-44* 

SCHARC 

43-1 

43-1# 

43-1* 

43-1* 

tCKSWR 

40-1# 

52-1 

52-1 


SCM3 

6-0 

6-0# 

6-0# 

6-0# 

SC«4 

6-0 

f-0 

SCMT AG 

6-0# 

9-25 

9-25 

9-25 

SCNTLC 

40-1 

40-1 

40-1 

40-1 

SCNTLG 

40-1 

40-1# 

40-1# 


SCNTLU 

40-1 

40-1 

13-260 

(CODE 

13-5 

13-31 

13-92 

20-33* 

20-39 

29-35* 

29-45 

SCOMND 

13-400* 

13-414* 

13-434* 

13-471* 

56-125 

56-135 

56-147* 

59-6# 

SCPUOP 

6-0# 

9-115* 

9-142* 

22-89 

SCRLF 

6-0# 

9-50 

9-273 

9-319 

13-199 

13-325 

13-334 

13-360 


22-72 

22-106 

22-119 

22-138 


22-383 

22-415 

22-442 

24-21 


35-1 

35-1 

40-1 

40-1 


42-1 

43-1 

43-1 

43-1 

SCYL 

13-16 

13-424* 

13-469* 

14-181 

56-75* 

56-144 

59-12# 

24-98 

SD82D 

22-405 

22-413 

22-434 

SD620 

39-245 

50-1# 

45-1# 


S06LK 

45-1 

45-1 


SOECVL 

49-1 

49-1# 

35-1* 


SDEVCT 

6-0# 

35-1* 


SOEVN 

6-0# 



36-11 

SOIV 

13-255 

13-349 

22-291 

SOOAGN 

35-1 

35-1 

35-1# 

39-62 

SDRVSN 

29-24 

29-27 

30-25* 

WSF»LY 

39-96# 

52-2 



SDTBL 

45-1 

45-1# 



SENDAD 

5- > 

35-1# 

35-1 

35-1 

SEND AT 

14-26* 

14-27* 

SENOCT 

35-1# 


35-1 

35-1 

SENOSX 

14-183* 

14-184* 


! 
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9-184 

9-235 

10-12 

11-82 

23-71 

59-69# 

40-1 

14-10 

59-73 

41-1 

14-96 

41-1 

14-102 

41-1 

14-107 

14-111 

43-1* 





40-1# 





13-356 

56-146* 

15-65* 

13-362 

59-20# 

15-70* 

14-14 

20-27* 

14-16 

20-28 

14-24 

20-32* 

22-271 

11-39 

13-373 

22-158 

24-72 

40-1 

67-16 

15-26 

58-91 

11-61 

13-387 

22-177 

24-150 

40-1 

67-19 

15-28* 

12- 96 

13- 389 
22-192 
27-17 
41-1 

15-41* 

12- 697 

13- 390 
22-220 
27-161 
41-1 

20-15 

12-706 

22-13 

22-243 

27-165 

41-1 

20-37* 

24-109 

24-117 

39-85 

39-228 

49-1# 

36-39# 





59-73# 

59-77 




35-1 

59-25# 




59-26# 






29-60 

29-82 

32-11 

35-1 

35-1 

14-153 

22-102 

22-252 

22-259 

53-206 


14-151 

15-42* 

15-64* 

15-69* 

20-25* 

29-15 

29-37* 

31-43* 

53-203 

56-68 

till! 

«— rvjrvjKW 

12-706 

22-16 

22-295 

32-119 

41-1 

12-706 

22-17 

22-309 

32-126 

42-1 

13-164 

22-36 

22-322 

34-7 

42-1 

13-187 

22-70 

22-329 

34-26 

42-1 

22-165 

29-15 

29-125* 

31-39* 

53-209 









E 

2 




'CZRHAAO 

RH80 PERF EXER MACRO V04.00 14-JAN- 

82 15:16: 

58 PAGE S 

-2 




SEQ 0223 

.CROSS REFERENCE 

TABLE (CREF V04.00 

) 








SENV 

6-0# 

9-30 

9-66 

10-6 

41-1 

43-1 

46-1 

46-1 




SENVH 

6-0# 

9-25 

43-1 

43-1 

46-1 







KOP 

11-176 

35-1# 










SEOPCT 

35-1 

35-1# 










SERFLG 

6-0# 

41-1 

41-1 

41-1* 








SERHAX 

6-0# 











•ERROR 

9-25 

41-1# 










SERRPC 

6-0# 

41-1 

41-1 

41-1 

41-1* 

41-1 * 

42-1 

42-1 




SERRTB 

8-0# 

42-1 










SERRTY 

41-1 

42-1# 










SERTTL 

6-0# 

41-1 

41-1 

41-1* 








SESCAP 

56-158 

56-196 

56-198 

58-196 








SET ABE 

6-0# 











SETEND 

5-8 

6-0# 










SFAIR 

11-101* 

11-138* 

11-146* 

11-147 

59-39# 







SFATAL 

6-0# 

46-1* 










SFFLG 

46-1 

46-1# 

46-1* 

46-1 * 

46-1* 






1 

SF11LC 

6-0# 

43-1 

43-1 

43-1 







1 

Sf ILLS 
SFIRST 

6-0# 

9-103* 

43-1 

9-103* 

43-1 

9-103* 

9-103* 

9-103* 

9-103* 

9-103* 

9-103* 

10-34* 

29-24 

29-69* 59-51# 

sfmt 

53-202 

59-5# 

59-6 

59-7 

59-8 

59-9 

59-10 

59-11 

59-12 

59-13 

59-14 59-18 

SGDADR 

6-0# 











SGOOAT 

6-0# 











SGET42 

11-91 

23-73 

35-1# 









SGTSUR 

40-1# 

52-1 

52-1 









SHARD 

24-135 

24-147 

25-17 

25-17* 

59-35# 







SHO 

4-57 

4-57 

4-57 









SHIBTS 

5-8# 











SHI HUM 

9-25* 

36-9 

47-1 

47-1 

47-1# 

47-1* 






SHLDWC 

14-94 

14-103 

14-108 

14-112 

15-58* 

20-43* 

59-40# 





SHSNL 

31-70 

31-74* 

39-84 

59-64# 

59-65 

59-69 






SHSM1 

9-155* 

9-155* 

9-155* 

9-155* 

9-155* 

9-155* 

9-155* 

9-155* 

31-72 

31-75* 

31-104* 39-79 59-65# 

SICHT 

6-0# 











SILLUP 

51-1 

51-1 

51-1# 









SINTAG 

6-0# 

40-1 

40-1 

40-1 

40-1 

40-1* 






SITEHB 

6-0# 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1* 

41-1* 

42-1 



SLF 

6-0# 

40-1 

40-1 

40-1 

41-1 

41-1 

43-1 

43-1 




SLFLG 

46-1# 

46-1* 










SLKCS8 

7-0# 

23-53* 










SLKCSR 

7-0# 

23-47 

23-54* 









SLKS 

7-0# 

23-60 

23-65* 









SLLVEC 

7-0# 

23-62 










SLOHUM 

9-25* 

16-20 

36-8 

47-1 

47-1 

47-1# 

47-1* 





SLPADR 

6-0# 











slperr 

6-0# 











SLPVEC 

7-0# 

23-50 










SlSTAD 

9-157 

66-1# 

66-1* 









SHADR1 

6-0# 











%mDR2 

6-0# 











SHADR3 

6-0# 











SMADR4 

6 0# 











SHAH 

5-8 

5-8 

6-0# 

9-19 

9-25 

9-30 

41-1 

43-1 




SHAHS 1 

6-0# 











SHAMS2 

6-0# 











! SHAHS 3 

6-0# 











' SMAHS4 

6-0# 










i 
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SMBAOR 5-8# 

SMFLG 46-1 46-1# 46-1* 46-1* 

SMISPO 22-437 24-141 24-147 25-19 25-19* 59-37* 

SRNEU 40-1 40-1# 

SMSGAO 6-0# 46-1 46- 1 * 

SMSGLG 6-0# 46-1* 

WSGTY 6-0# 46-1 46-1 46-1* 46-1* 

SflSUR 40-1 40-1# 

IM7YP1 6-0# 

WTYP2 6-0# 

SMTYP3 6-0# 

JHTYP4 6-0# 

SNCOOE 16-24* 17-59 17-68 20-13 20-25 20-26 55 

SNCYL 16-26* 16-47* 17-10* 20-37 59-49# 

SNEXT 11-100* 11-123 11-137* 15-73* 15-78* 17-72* 25 

tNPATC 17-71* 20-35 59-46# 

INSEC 16-25* 1642 16-45* 17-32* 17-36 17-55 2( 

SNTRK 16-46* 17-21* 59-48# 

(NULL 6-0# 43-1 43-1 43-1 

SMWTST 9-19# 

SOCNT 44-1# 44-1* 44-1* 

SOCTVL 50-1 50-1# 

SOHOOE 44-1 44-1# 44-1* 44-1* 44-1* 44-1* 

SOPERC 14-179* 14-180* 15-15 15-17 16-37 16-39 55 

SPACK 10-37* 11-125 15-43 15-62 15-77* 20-9 2i 

SPASS 6-0# 9-25* 35-1 35-1 35-1* 35-1* 3! 

SPAS SC 24-81 29-4 <i* 35-1 35-1 35-1* 59-38# 

IPASTR 5-8# 

SPATTC 14-155 15-72* 20-35* 29-38* 29-39* 59-23# 

SPOSIT 14-185* 14-186* 22-432 24-116 59-28# 

SPOWER 51-1 51-3# 

SPREVA 13-421* 13-422* 13-423* 14-181 15-25* 15-26* 2< 

22-226 56-144* 56-145* 59-24# 

SPREVO 13-413* 15-24* 20-11* 20-12* 20-30 22-46 5< 

SPSEL 53-204 59-7# 

SPWRAO 51-1# 

SPWRON 9-25 51-1 51-1# 

SPWRftG 51-1# 

SPWRUP 51-1 51-1# 

SOUES 6-0# 40-1 40-1 40-1 40-1 41-1 41 

IR2A 52-1 

SRAM) 16-8 17-39 17-52 17-82 47-1# 

SROCHR 40-1# 52-1 52-1 

IROOEC 52-1 

SRDLIN 40-1# 52-1 52-1 

SROOCT 52-1 

SRDOEL 14-32* 22-408 24-104 59-31# 

SRDSZ 40-1 40-1# 

SREAD 14-28* 14-29* 14-31* 22-411 24-108 59-32# 

SREG 53-210 59-13# 59-113 59-113 59-113 59-113 5< 

59-113 59-113 59-113 59-113 

SRESRE 48-1# 52-1 

SRETRY 12-222 12-321 12-388 12-437 12-481 12-517 1 

JRMEXT 4-9# 9-110 22-28 22-88 22-270 29-26 5: 

59-113 59-113 59-113 59-113 61-11 62-9 

SRM80 9-307 24-78 64-19# 


6 - 0 # 

6 - 0 # 

6 - 0 # 

6 - 0 # 

16- 24* 
16-26* 
11 - 100 * 

17- 71* 
16-25* 
16-46* 

6 - 0 # 

9-19# 

44-1# 

50- 1 
44-1 
14-179* 
10-37* 

6 - 0 # 

24-81 

5- 8# 
14-155 
14-185* 

51- 1 
13-421* 
22-226 

13- 413* 
53-204 
51-1# 

9-25 

51-1# 

51- 1 

6 - 0 # 

52- 1 
16-8 
40-1# 
52-1 
40-1# 

52- 1 

14- 32* 
40-1 
14-28* 

53- 210 
59-113 
48-1# 
12-222 

4-9# 

59-113 

9-307 


17-59 

16- 47* 
11-123 
20-35 
16 42 

17- 21* 

43- 1 

44- 1* 

50- 1# 
44-1# 

14- 180* 
11-125 

9-25* 

29-4*#* 

15- 72* 

14- 186* 

51- 3# 
13-422* 
56-144* 

15- 24* 
59-7# 


51- 1# 
40-1 

17-39 

52- 1 


22-408 

40-1# 

14-29* 

59-13# 

59-113 

52-1 

12-321 

9-110 

59-113 

24-78 


17-68 

17-10* 

11-137* 

59-46# 

16-45* 

59-48# 

43-1 

20-13 

20-37 

15-73* 

17-32* 

43-1 

20-25 

59-49# 

15-78* 

17-36 

20-26 

17-72* 

17-55 

59-45# 

29-20 

20-36 

59-46 

59-50# 

59-47# 

59-47 

59-48 

59-49 

S' *0 

59-51 

59-55 

44-1* 












44-1* 

15-15 

15-43 

35-1 

35-1 

44-1* 

15-17 

15-62 

35-1 

35-1 

44-1* 

16-37 

15-77* 

35-1* 

35-1* 

44-1* 

16-39 

20-9 

35-1* 

59-38# 

59-27# 

27-170* 

35-1* 

59-21# 

35-1* 







20-35* 

22-432 

29-38* 

24-116 

29-39* 

59-28# 

59-23# 









13-423* 

56-145* 

20-11* 

14-181 

59-24# 

20-12* 

15-25* 

20-30 

15-26* 

22-46 

20-15* 

56-143* 

20-16* 

59-22# 

20-19* 

20-20* 

20-21* 

22-210 

22-214 

22-218 

51-1# 












40-1 

40-1 

40-1 

41-1 

41-1 

43-1 

43-1 






17-52 

52-1 

17-82 

47-1# 










52-1 












24-104 

59-31# 











14-31* 

59-113 

59-113 

22-411 

59-113 

59-113 

24-108 

59-113 

59-32# 

59-113 

59-113 

59-113 

59-113 

59-113 

59-113 

59-113 

59-113 

59-113 

12-388 

22-28 

59-113 

12-437 

22-88 

59-113 

12-481 

22-270 

61-11 

12-517 

29-26 

62-9 

12-545 

53-167 

12-621 

53-197 

12-653 

58-90 

12-673 

59-97 

13-491# 

59-113 

13-509 

59-113 

59-113 

59-113 


64-19# 


c 
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SRMADR 

7-0# 

9-73* 

9-85 

9-118 

9-132 

62-5 

67-21 

IRMAS 

59-8A# 

62-7 



13-341 

13-380 

14-9 

SRMBA 

12-739 

13-247 

13-281 

13-303 

59-79# 

62-7 






SRMBAE 

59-98# 

62-10 


13-413 

15-24 

20-11 

22-40 

SRMCS1 

12-6 

12-8 

12-715 

59-83 

59-84 

59-85 

59-86 

59-87 

59-58 

59-89 


59-98 

59-99 

59-113 

59-113 

59-113 

59-113 

59-113 

SRMCS2 

12-132 

12-332 

12-617 

12-717 

59-81# 

62-6 

59-113 

SRMCS3 

22-276 

29-27 

59-99# 

59-113 

59-113 

59-113 

SRMDA 

15-27 

16-25 

22-186 

22-241 

23-19 

23-20 

59-80# 

SRMDB 

22-285 

59-86# 

62-7 


22-229 

23-21 

59-91# 

SRMDC 

12-458 

15-28 

16-26 

22-190 

SRMDS 

12-10 

12-136 

12-174 

59-82# 

62-6 



SRMDT 

59-88# 

62-7 



22-316 

59-95# 

62-6 

SRMEC1 

12-202 

12-208 

12-210 

13-266 

SRMEC2 

12-212 

13-285 

22-320 

59-96# 

62-6 

12-156 

12-160 

SRMER1 

12-128 

12-140 

1 2-1 44 

12-148 

12-152 

12-261 

12-263 

12-311 

12-341 

12-355 

12-357 

12-410 

SRMER2 

12-186 

12-188 

12*669 

12-680 

12-721 

59-94# 

62-6 

SRMHR 

59-92# 

62-8 






5°MLA 

59-85# 

62-7 






SRMMftl 

59-87# 

62-7 






SRMHR2 

59-93# 

62-6 



62-8 



SRMOF 

15-30 

16-28 

29-145 

59-90# 



SRMSN 

30-14 

59-89# 

62-8 

67-32 




SRMVEC 

7-0# 

9-70* 

9-86 


22-156 

22-287 

SRMWC 

12-734 

13-12 

13-248 

13-343 

22-100 

SRTMAD 

35-1# 



51-1* 

51-1* 



SSAVR6 

51-1 

51-1# 

51-1* 



SSAVRE 

48-1# 

52-1 

52-1 


26-19 

26-24 

32-101 

SS82D 

13-277 

22-478 

24-82 

26-14 

SSB20 

22-462 

39-243# 



15-25 

15-27* 

15-32* 

SSEC 

13-18 

13-425* 

13-468* 

15-19 

29-127* 

31-41* 

31-52* 

31-53 

31-66 

31-82 

31-84* 

SSETUP 

4-267 

4-267 

4-267 

4-267 

4-267 

4-267# 

4-267# 

9-25 

9-25 

9-25 

9-25 

9-25 

9-25 

9-25 


40-1 

40-1 

40-1 

40-1 

40-1 

41-1 

41-1 

(SIZE 

9-156 

66-1# 




59-36# 


SSKI 

22-440 

24-138 

24-147 

25-18 

25-18* 


SSOFT 

24-132 

24-147 

25-16 

25-16* 

59-34# 

15-60* 

20-38* 

SSSEC 

13-24 

13-29 

13-30 

13-254 

13-348 

SSSENB 

11-173* 

21-25 

29-147 

56-124* 

59-41# 

4-267# 

4-267# 

SSTUP 

4-267 

4-267# 

4-267 

4-267 

4-267 

4-267 



SSUPR1 

38-19 

38-24# 



38-37# 



SSUPR2 

38-18* 

38-23* 

36-33 

38-35* 

38-16# 


$SUPRL 

13-278 

22-406 

22-414 

22-435 

22-479 


SSUPRS 

38-21# 

5-5# 






SSVPC 

5-5 


4-58 

4-58 

4-58 

4-58 

SSWR 

4-47# 

4-57 

4-58 

9-25 

35-1 

35-1 

35-1 

35-1 

35-1 

41-1 


41-1 

41-1 

41-1 

51-1 




SSWREG 

6-0# 

9-25 




12-43 

12-124 

STATUS 

11-167 

12-4 

12-24 

12-39 

12-41 

13-498 

14-7 

22-97 

22-249 

29-20 

31-49 

53-211 


2 


SEO 0225 




H 2 


SEO 0226 
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STERN 

52-3# 






STESTN 

6-0# 

9-19* 

35-4* 

42-1 

42-1 


STINE 

22 18 

24-69 

26-4# 

27-18 

41-1 


ST KB 

6-0# 

27-84 

40-1 

40-1 

40-1 

40-1 

STKCNT 

40-1 

40-1 

40-1# 

40-1* 

40-1* 

40-1* 

STKINT 

9-65 

10-3 

27-19 

35-5 

40-1 

40-1 

STKQEN 

40-1 

40-1 

40-1# 

40-9 



STKQIN 

40-1 

40-1 

40-1# 

40-1* 

40-1* 

40-1* 

STKOOU 

40-1 

40-1 

40-1# 

40-1* 

40-1* 

40-1* 

STKQSR 

40-1 

40-1 

40-1 

40-1# 

40-11 


STKS 

6-0# 

27-85* 

40-1 

40-1 

40-1 

40-1 


43-1 






STKSRV 

40-1 

40-1# 





STMPO 

6-0# 






STN 

4-48# 

4-57 

9-19 

9-19 

9-19 

9-19# 

STNPWfi 

49-1 

49-1 

49-1# 




STOTAL 

22-397 

24-144 

25-20 

25-20* 

34-38 

59-33# 

STP8 

6-0# 

43-1 

43-1 

43-1* 



STPFLG 

6-0# 

43-1 

43-1 

43-1 



STPS 

6-0# 

43-1 

43-1 

43-1 



STRAP 

9-25 

52-1# 





STRAP2 

52-1 

52-1# 





STRK 

13-467* 

15-40* 

22-170 

29-126* 

31-40* 

53-208 

STRP 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 


52-1 

52-1 

52-1 

52-1 

52-1 

52-1 


52-1 

52-1 

52-1 

52-1 

52-1 

52-1 


52-1 

52-1 

52-1# 

52-1# 

52-1# 

52-1# 


52-2 

52-2 

52-2 

52-2 

52-2# 


STRPAD 

52-1 

52-1# 

52-3 




STSTN 

5-8# 






STSTNN 

6-0# 

41-1 

41-1 

41-1 



STTYIN 

40-1 

40-1 

40-1 

40-1 

40-1 

40-1# 

STYPBN 

52-1 






STYPOS 

45-1# 

52-1 

52-1 




STYPE 

39-46 

39-99 

43-1# 

46-1 

52-1 

52-1 

STYPEC 

40-1 

43-1 

43-1 

43-1 

43-1# 


STYPEX 

43-1 

43-1 

43-1# 




STYPOC 

44-1# 

52-1 

52-1 




STYPON 

44-1 

44-1# 

52-1 




STYPOS 

44-1# 

52-1 





SUN IT 

6-0# 

7-0 





SUNITN 

5-8# 






SUSWR 

6-0# 






SVECT1 

6-0# 

9-68 

9-70 




SVECT2 

6-0# 






SWCNT 

13-472* 

15-57* 

15-59* 

20-42* 

20-44* 

29-41* 

SWRDL 

12-736 

13-11 

13-249 

13-342 

14-51 

14-58 


15-58 

17-64* 

20-42 

20-43 

22-99 

22-255 


59-22 

51-23 

59-24 

59-25 

59-26 

59-27 


59-36 

.>9-37 

59-38 

59-39 

59-40 

59-41 

SWRITN 

14-18* 

14-19* 

14-21* 

22-403 

24-97 

59-30# 

SUTOFL 

14-22* 

22-400 

24-93 

59-29# 



SXOFF 

43-1 

43-1 





SXON 

40-1 

*•3-1 

43-1 




.-5ASTA 

46-1 

46-1 





SX 

5-8 

5-8# 






40-1 

40-1 

43-1 

43-1 




51-16 







40-7* 

40-8* 

40-9 

40-11* 




40-1* 

40-1* 

40-1* 

40-1* 

40-1* 

40-1* 

43-1 

52-1 

52-1 

52-1 

52-1# 

52-1 

52-1 

52-1 

52-1# 

52-1 

52-1 

52-1 

52-1# 

52-1 

52-1 

52-1 

52-1# 

52-1 

52-1 

52-1 

52-1# 

52-1 

52-1 

52-1 

52-1# 

52-1 

52-1 

52-1 

52-1# 


31-42* 

53-205 

56-82 

56-93* 

56-105 

56-108 

59-8# 

14-61 

14-62* 

14-154 

15-53* 

15-54* 

15-56* 

15-57 

29-40* 

56-94* 

56-95* 

59-18# 

59-19 

59-20 

59-21 

59-29 

59-30 

59-31 

59-32 

59-33 

59-34 

59-35 


-5 


40-1 

40-6* 

40-1# 

40-1* 


40-1 


59-11# 

52-1 

52-1 

52-1 

52-1# 


29-42* 
14-60* 
22 - 2 8 b 
59-28 
59-45 




SEC 0??7 


I 2 



J 2 


SEQ 0228 
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CROSS REFERENCE TABLE <CREF V04.00 ) 


ASGN3 

27-122 

27-136 

2^-144# 






ASGN4 

27-145 

27-172# 







AS 0*6 

27-153 

27-174# 







ASGN7 

27-152 

27-177# 







AS 0*0 

11-64 

64-31# 







ASKPAR 

9-237 

65-17# 







ASflBLY 

7-0 








ASNERR 

27-124 

27-141 

27-175 

27-185 

28-22 

28-38 

34-7# 


ASNLST 

7-0# 

11-71* 

11-80 

11-190 

24-8 

24 '27 

27-26 

27-120 


28-40 

28-44* 

34-22* 

35-1 

35-1 

35—1 * 

51-19 


ASNASG 

27-113* 

27-118* 

27-127* 

27-132* 

27-174* 

27-180* 

27-182* 

27-184* 

ASSIGN 

27-91# 

28-50 

28-55 

28-60 

28-66 




ASWREG 

6-0 

6-0 







ATO 

4-169# 








ATI 

4-170# 








AT2 

4-171# 








AT3 

4-172# 








AT4 

4-173# 








ATS 

4-174# 








AT6 

4-175# 








AT7 

4-176# 








ATA 

4-143# 








ATABIT 

11-71 

24-27 

27-120 

27-134 

27-144 

28-10 

28-12 

28-13 


35-1 

53-160# 

54-99 

55-96 

55-100 

55-167 

56-224 

56-238 

ATESTN 

6-0 

6-0 







ATTN 

7-0# 

41-1* 

62-1 

62-2 





AUNIT 

6-0 

6-0 







AtjSUR 

6-0 

6-C 







AUTLST 

11-72* 

28-13* 

34-23* 

35-1 

35-1 

35-1* 

35-1* 

35-9# 

AVAIL 

7-0# 

11-22 

11-65 

11-69* 

11-119 

11-122 

11-157 

11-178 

AVECT1 

4-265# 

6-0 

6-0 






AVECT2 

6-0 

6-0 







BA06LX 

7-0# 

31-68 

65-13 






BAOENT 

9-205 

9-224 

9-250 

27-107 

32-77 

33-26 

64-43# 


BAOSEC 

7-0# 

11-174* 

21-52* 

22-68 

25-16 

25-17 

25-18 

25-19 

BAD TWO 

9-3# 

9-27 







BAI 

4-102# 








BEGCOD 

7-0# 

29-35 

29-36 






BEGPAT 

7-0# 

29-38 







BEGUC 

7-0# 

29-40 

29-41 






BITO 

4-76# 








BITOO 

4-76 

4-76# 

41-1 

41-1 





BIT01 

4-76 

4-76# 

12-41 

55-49 

55-251 




BIT02 

4-76 

4-76# 







BIT03 

4-76 

4-76# 

12-543 






BIT04 

4-76 

4-76# 

12-124 

12-144 

56-221 




BIT05 

4-76 

4-76# 

12-652 

56-219 

57-54 




BIT06 

4-76 

4-76# 

12-241 

12-242 

12-341 

12-357 

14-7 

22-249 

BIT07 

4-76 

4-76# 

12-24 

12-148 

14-7 

54-106 

55-221 

56-23 

BIT08 

4-76 

4-76# 

12-1 AO 

54-106 

57-66 




BIT09 

4-76 

4-76# 

12-39 

41-1 

55-145 

57-52 



BIT1 

4-76# 








BIT10 

4-76# 

12-164 

12-174 

41-1 





biti i 

4-76# 

12-168 

22-276 

54-81 

55-72 

55-88 

56-269 


BIT12 

4-76# 

9-142 

12-178 

12-241 

12-242 

12-263 

22-237 

54-76 


58-117 









27- 134 

28- 21 • 


28-32 

56-246 


25-20 


27-85 

56-219 


54-94 


27- 144 28-10 

28- 37* 34-12# 


?6-268 ?7-?8 


54-106 

56-221 


55- 40 

56- 242 


54-106 55-51 


28-12* 


34-23 


55-111 

58-77 


55-84 


28-28 


35-1 


56-53 


58-19 


28-34* 


35-1 


58-116 


58-54 


K 2 


SEQ 0229 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN- 
CROSS REFERENCE TABLE (CREF V04.00 ) 


BIT13 

4-76# 

9-142 

12-152 

12-515 

BIT14 

4-76# 

12-8 

12-10 

12-41 


56-285 

57-103 

58-114 


BIT! 5 

4-76# 

12-6 

12-188 

12- -41 


56-219 

56-221 

56-285 

r /-52 

BIT2 

4-76# 

12-43 

57-110 


BIT3 

4-76# 

12-156 



B1T4 

4-76# 

12-435 



BITS 

4-76# 

12-160 



BIT6 

4-76# 

12-263 

22-97 

55-74 

BIT7 

4-76# 

12-255 

12-479 

13-498 

BIT8 

4-76# 

12-386 

12-410 

12-416 

BIT9 

4-76# 

12-172 

12-617 


BLKADR 

7-0# 

9-90 

10-27 

24-25 

BLNKS1 

13-370 

13-382 

22-19 

22-74 

BLNKS2 

9-302 

12-706 

12-706 

12-706 


22-77 

22-116 

22-167 

22-172 

BLNKS3 

13-367 

63-63# 



BLNKS4 

9-275 

63-62# 



BPTVEC 

4-76# 




BSE 

4-232# 




BUFTBL 

7-0# 

9-158* 

9-159* 

9-160* 


14-91 

14-92 

14-104* 

14-109* 

BUSADR 

9-78 

67-13# 



CFLAG 

7-0# 

9-100* 

9-191* 

9-195 


32-15* 

32-36 

32-121 

32-127* 

CHGAOR 

7-0# 

9-15* 

9-18* 

10-14 

CHKUC 

15-52 

17-56 

19-16# 


cn 

55-101 

55-131# 



CI3 

55-103 

55-154# 



CIA 

55-92 

55-172# 



C 1 5 

55-150 

55-168 

55-234# 


CIS 

55-36 

55-110 

55-141 

55-143 


55-194 

55-198 

55-200 

55-210 


56-99 

56-117 

56-119 

56-121 

CK.CHR 

39-152# 

39-189 

39-197 


CK.DEC 

39-130# 

39-158 



CK.DIG 

32-53 

32-60 

32-67 

33-23 

CK.NL* 

67-30 

67-41 

68-12# 


CK.OCT 

39-112# 

39-160 



CK6US 

12-16 

12-734# 



CKCLJC 

9-262 

23-43# 

35-6 

51-17 

CKCLK1 

23-46 

23-57# 



CKCLK2 

23-59 

23-68# 



CKCLK3 

23-55 

23-66 

23-76# 


CKERR 

12-15 

12-715# 



CKFMT 

12-146 

12-410# 



CKHCE 

12-150 

12-449# 



CKLHTS 

15-20 

15-37 

16-43 

17-37 

CKSWR 

41-1 

41-1 

52-1# 


CLKFLG 

7-0# 

23-43* 

23-48* 

23-61* 

CLOCK 

23-51 

23-63 

26-31# 


CLR 

4-104# 

27-15 



CLRDP8 

10-29 

27-154 

29-10# 


CLROUE 

54-17 

57-75 

58-130# 


CMCNT 

7-0# 

13-11* 

13-12* 

13-24 


82 15:16:58 PA6E S-8 


.2-617 

12-128 

39-96 

12-132 

41-1 

12-136 

56-193 

12-186 

12-332 

12-311 

57-66 

12-355 

57-103 

12-617 

57-110 

55-46 

55-49 

MO 
• 1 

o 

12-454 

12-617 

56-45 


27-148 

24-75 

12-706 

22-188 

27-169 

24-77 

13-181 

22-307 

28-15 

24-86 

13-184 

22-307 

51-29 

24-88 

13-321 

22-318 

63-65# 

13-321 

63-64# 

9-163* 

14-114 

9-164* 

14-115 

9-166* 

14-128* 

9-167* 

9-170* 

9-214 

33-9* 

10-44* 

9-234* 

33-21 

29-62 

9-240 

33-31* 

29-84 

10-47* 

40-5* 

51-26* 

11-3 

51-18* 

67-13 

55-144 

55- 219 

56- 123 

55-146 

55- 230 

56- 126 

55-148 

55- 242# 

56- 155 

55- 157 

56- 25 
56-232 

55- 164 

56- 44 

57- 95 

39-183# 





18-15# 





26-4 





13-26 

13-27* 

13-30* 

13-94 

13-97* 


12-669 

12-671 

12-680 

55-46 

55-81 

55-51 

55-81 

55-84 

55-251 

56-53 


13-321 

67-25 

13-330 

67-36 

13-330 

13-330 

13-379 

9-171 

9-173 

14-48 

14-50 

14-64* 

11-C4* 
51-22 
67-1 S* 

27-16* 

67-20* 

27-24 

67-28 

27-92* 

67-39 

27-97 

55- 166 

56- 47 

55- 178 

56- 50 

55- 183 

56- 74 

55- 18? 

56- 76 

55- 189 

56- 78 


58-89 


13-102 1 3—1 27* 



L 


2 


SEQ 0250 


CZRNAAO RR80 PERF EXER RACRO V04.00 14-JAN-82 15:16:58 PAGE S-9 
CROSS REFERENCE TABLE CCREF V04.00 ) 


CNCYL 

7-0# 

13-16* 

13-17* 

13-36 

13-112* 

13-113 

13-119 





CROAT 

13-32 

13-45 

13-54# 

13-98 

13-100 







CNHED 

13-36# 











CHPAA 

12-19 

13-3# 










CNPAAD 

12-301 

13-5# 










CRPLRT 

7-0# 

12-710 

13-19 









CRPRES 

11-44 

11-110 

11-159 

11-182 

21-7# 

21-10 






CRPRT 

13-49 

13-68 

13-78 

13-89 

13-136# 







CAPRX 

13-46 

13-96 

13-103 

13-117 

13-128 

13-131# 






CRSEC 

7-0# 

13-18* 

13-104* 

13-105 

13-107* 







CRSTR 

13-21# 











CRSTR2 

13-40 

13-43 

13-48# 

13-123 

13-126 







CRTRIC 

7-0# 

13-108* 

13-109 

13-111* 








COLON 

26-17 

26-22 

64-41# 









conra 

24-79 

32-106 

32-114 

64-5# 








COftTBL 

7-0# 

20-27 

29-37 









CPSAVE 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1# 

41-1* 

41-1 * 

42-1 



CR 

4-76# 

43-1 

43-1 









CRLF 

4-76# 

9-6 

9-30 

9-30 

9-44 

9-55 

9-61 

24-68 

24-92 

24-103 

24-114 


43-1 

51-3 

51-3 

61-7 

61-9 

61-10 

61-12 

63-46 

63-47 

63-48 

63-49 


63-56 

63-57 

63-58 

63-59 

63-60 

63-61 

64-18 

64-20 

64-22 

64-23 

64-23 


64-29 

64-30 

64-32 

64-32 

64-36 

64-37 

64-38 

64-39 

64-39 

64-40 

64-40 


64-46 

64-48 

64-50 

64-50 

64-52 

64-53 

64-54 

64-55 

64-55 

64-56 

64-56 


64-59 

64-62 

64-63 

64-64 

64-64 

65-17 






CTRAP 

40-1 

40-1 

40-5# 









CYLINT 

7-0# 

13-115 

29-71 

29-89 

29-90 

29-139* 

29-142* 

32-53 




CYLNOR 

12-456 

12-457* 

12-458 

12-461* 

12-497* 

22-236 

22-307 

22-307 

31-45 

59-122 

68-45# 

DASH 

24-76 

64-6# 










DATAO 

7-0 

7-0# 










0ATA1 

7-0 

7-0# 










DATA10 

7-0 

7-0# 










DATA11 

7-0 

7-0# 










DATA12 

7-0 

7-0# 










DATA13 

7-0 

7-0# 










DATA14 

7-0 

7-0# 










DATA1 5 

7-0 

7-0# 










DATA2 

7-0 

7-0# 










DATA3 

7-0 

7-0# 










DATA4 

7-0 

7-0# 










DATA5 

7-0 

7-0# 










0ATA6 

7-0 

7-0# 










DATA 7 

7-0 

7-0# 










DATA8 

7-0 

7-0# 










DATA9 

7-0 

7-0# 










DATAPK 

27-58 

28-59# 










DCX 

4-162# 











DCKER 

12-184 

12-197# 










DCKER1 

12-237# 

12-533 










DDISP 

4-76# 

6-0 

9-25 









DDRVS 

7-0# 

11-14 

28-15* 

34-25* 

35-1* 







DEASGN 

27-46 

28-4# 










DEASSG 

11-40 

64-29# 










DEC2 

7-0# 

21-24* 

21-27* 

23-36* 

23-38* 







DHl 

8-5 

61-1# 










DHK 

22-73 

61-6# 










DHl 5 

22-82 

61-8# 











24-130 

24-131 

43-1 

63-51 

63-53 

63-54 

64-25 

64-27 

64-29 

64-43 

64-44 

64-45 

64-57 

64-58 

64-58 


I CZRNAAO 

RH80 PERF EXER MACRO V04.00 14-jAN- 

82 15:16: 

58 PAGE 

N 

S-10 

2 





SEQ 0231 

CROSS REFERENCE 

TABLE (CREF V04.00 

) 











DH16 

22-85 

61-10# 













DHl 7 

22-93 

61-12# 













DH2 

8-12 

8-33 

61-2# 












DH3 

8-19 

61-3# 













DMA 

8-26 

61-4# 













DH6 

8-40 

61-5# 













DISPLA 

6-0# 

9-25* 

9-25* 

41-1* 











DISPLY 

12-86 

12-98 

12-109 

12-205 

12-215 

12-218 

12-234 

12-258 

12-305 

12-314 

12-336 

12-374 

12-401 

12-423 


12-467 

12-494 

12-510 

12-532 

12-538 

12-557 

12-567 

12-576 

12-594 

12-612 

12-633 

12-645 

12-665 

12-691 


12-696 

12-697 

12-698 

12-706 

12-706 

12-706 

12-706 

12-706 

12-706 

12-706 

12-706 

12-724 

12-742 

13-158 


13-163 

13-164 

13-165 

13-181 

13-184 

13-187 

13-196 

13-199 

13-274 

13-279 

13-316 

13-321 

13-321 

13-321 


13-325 

13-330 

13-330 

13-330 

13-333 

13-334 

13-360 

13-361 

13-364 

13-367 

13-370 

13-373 

13-3/5 

13-379 


'■ 3-382 

13-387 

13-389 

13-390 

13-515 

22-13 

22-14 

22-16 

22-17 

22-19 

22-36 

22-62 

22-64 

22-70 


22-71 

22-72 

22-73 

22-74 

22-77 

22-82 

22-85 

22-93 

22-105 

22-106 

22-116 

22-119 

22-125 

22-131 


22-138 

22-152 

22-155 

22-158 

22-164 

22-167 

22-168 

22-172 

22-173 

22-177 

22-185 

22-188 

22-189 

22-192 


22-202 

22-207 

22-209 

22-212 

22-216 

22-220 

22-225 

22-228 

22-235 

22-239 

22-243 

22-251 

22-254 

22-257 


22-262 

22-268 

22-284 

22-293 

22-295 

22-302 

22-307 

22-307 

22-308 

22-309 

22-315 

22-318 

22-319 

22-322 


22-328 

22-329 

22-343 

22-357 

22-363 

22-382 

22-383 

22-396 

22-399 

22-402 

22-407 

22-410 

22-415 

22-431 


22-436 

22-439 

22-442 

22-451 

22-465 

38-36 

52-2# 








DISPRE 

5-1# 

9-25 













DLT 

4-114# 














DONE 

12-26 

12-124# 













DPE 

4-224# 














OPINT 

53-79# 

-r* 

l 

-r* 

54-49 

55-21 

56-178 

56-191 

56-275 

56-277* 

57-44 

57-80 

57-89 

57-97* 



DPR 

4-136# 














DPRQS 

53-88# 

55-27 

55-105* 

56-181 

56-289* 

57-46 

57-82 

57-91 

57-106* 






DRIVE 

7-0# 

41-1* 

62-2 

62-3 

62-4 










DRIVEO 

7-0 

9-103* 

9-155* 

59-113# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 





DRIVE 1 

7-0 

9-103* 

9-155* 

59-113# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 





DRIVE2 

7-0 

9-103* 

9-155* 

59-113# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 





DRIVE3 

7-0 

9-103* 

9-155* 

59-113# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 





DRIVE4 

7-0 

9-103* 

9-155* 

59-113# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 





DRIVE5 

7-0 

9-103* 

9-155* 

59-113# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 





DRIVE6 

7-0 

9-103* 

9-155* 

59-113# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 





DRIVE7 

7-0 

9-103* 

9-155* 

59-113# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 




1 

DRNIH 

27-159 

64-30# 












| 

DROP 

12-104 

34-20# 

34-40 












DROPNG 

34-27 

64-24# 













DRQ 

4-192# 














OR VAC T 

53-50# 

55-32 

55-237* 

55-243 

55-253* 

56-16* 

56-184 

56-222* 

56-237* 

57-55* 

57-60 

57-67* 



DRVCLR 

4-245# 














DRVER 

12-190 

12-400# 













DRVINT 

54-37 

54-71# 

55-23 

55-76 

56-256 

56-278 

57-58 








DRVNO 

7-0# 

12-3* 

22-75 

35-1 

35-1 

35-1* 









DRVPAR 

7-0# 

27-93* 

27-109* 

27-157 

29-64 

29-86 

32-13 








DRVPRH 

10-33 

27-167 

29-58# 












DRVQUE 

55-30 

55-38 

56-140 

58-162# 











DRVSN 

39-60 

64-61# 













DRVSTA 

9-276 

10-24 

27-151 

53-60# 

54-27* 

54-28* 

54-29* 

54-30* 

54-40* 

54-72* 

54-80* 

54-103* 

54-108* 

55-19 


55-25 

55-44 

55-78 

55-82 

55-259* 

56-280 

57-98* 








DRVTYP 

9-28 0 

27-177 

53-70# 

54-73* 

54-85* 

54-90* 

55-47 

55-260* 







DRY 

4-135# 














DSWR 

4-76# 

6-0 

9-25 












DTOO 

4-183# 














DTOI 

4-184# 














DT02 

4-185# 













1 



11 


N 2 


5EQ 0232 


55-254 


13-275 

13-312 


55-256* 


13-280* 

13-313* 


56-6 


13-281 

13-314* 


56-17* 


13-293 

13-323 


56-65* 


13-295 

13-330 


57-49 


13-296* 

13-330 


57-63 


13-297* 


57-73* 


13-301 


e i 



SEO 0233 


9-117* 9-143* 23-45 23-46* 23-59* 23-76* 41-1 

66 - 1 * 


29-121 


C 3 


SEQ 0234 


CZRNAAO PH80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PA6E S-13 
CROSS REFERENCE TABLE (CREF V04.00 ) 


FER 

FII.BUF 

FILLO 

F1LLZ 

FHT16 

FMTER 

FRSTER 

GENOPB 


GENPAR 

GENREG 

GETAOR 

GETBUF 

GETID 

getlmt 

GET PAT 
G C TREG 
GETREM 
GETREQ 
GNS 


GO 

GOORIV 

GTSWR 

MCE 

HCEER 

HCI 

HCRC 

HCRCER 

HDASN 

HOUR 

HT 

HZ 

IAE 

IAEER 

IBSAVE 

IDLE 

IE 

ILF 

UR 

INCHRD 
INCNIS 
INC SKI 
INCSOf 
INC TO r 

INTRVL 
INVLO 
IOTVEC 
IR 
I SR 
I VC 

KIPARO 


4-151# 

11-102 

39-11* 

26-15 

4-214# 

12- 418 
7-0# 

10-26* 

13- 476 
31-84* 

11- 130 

12- 416 

10- 31 

11- 97 

10- 30 

13- 54 

15- 71 

4- 254# 

16- 14 
55-69 

5- 1 

24-130 

52-1 

52-2 

4-123# 

11- 103 
9-30 
4-154# 

12- 462 
4-212# 


11- 136 
39-15 
26-20 

12- 575# 

12- 300* 

13- 399* 
27-146* 
59-117# 

16- 7# 
12-454 
27-156 
11-133 
27-155 
15-14 

17- 70 

17-8 

55-248 

5-1 

24-131 

52-1 

52-2 

11- 139 
52-1# 

12- 593# 


14-150# 


39-36* 

39-39# 

26-25 

39-H# 

12-302 

12-688 

13-400* 

13-402 

31-38* 

31-39* 

59-126 

59-129# 

31-33# 


14-45# 


30-10# 


16-7 

23-14 

17-77# 

17-85 

17-19 

17-30 

56-33 

56-206 

9-6 

9-30 

24-134 

24-137 

52-1 

52-1 

12-251 

12-344 


12- 709* 13-3* 13-81 

13- 434* 13-436 13-438 

31-40* 31-41* 31-42* 


4-155# 

12-142 

12-369# 

12-412 

12-451 


39-78 

7-0# 

64-60# 

9-95* 

11-86* 

26-7 

26-43* 

4-76# 

7-0# 

43-1 

9-94 

43-1 

11-85 

26-33 

26-44 

4-157# 

12-166 

41-1 

12-556# 

41-1 

41-1 

41-1 

41-1 

11-7 

11-116 

11-121 

11-164# 



4-82# 

4-147# 

4-148# 

12-279 

12-499 

12-637 

12-291 

12-90 

12-514 

7-0# 

27-81 

4-76# 

4-105# 

54-32 

4-229# 

66-1 


25-17# 

25-19# 

25-18# 

12-299 

12-102 

12-542 

9-98* 

64-37# 


56-3# 


12-384 

12-113 

12-560 

11-89* 


12-433 

12-220 

12-569 

26-36* 


12-477 

12-257 

12-587 

26-50 


13-138 13-154 13-167* 13-192 , „ 

13-467* 13-468* 13-469* 13-470* 13-471* 13-472* 13-474 

31-43* 31-47 31-49 31-52* 31-53 31-66 31-82 


29-68 29-137# 31-34 


17-49 

56-284 

9-44 

24-140 

52-1 


13-491 14-173# 


17-83 

57-51 

9-55 

36-8# 

57-65 

9-61 

57-100 

24-68 

57-107 

24-80 

58-178# 

24-92 

24-95 

24-103 

24-106 

! 

24-114 

24-143 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 

52-1 


41-1# 41-1* 41-1* 41-1* 


25- 16# 
12-280 
12-605 

26- 52 


12-304 12-319 12-363 
12-616 12-636 12-649 
26-52 26-55* 51-13* 


12-385 

12-668 

51-24 


12-404 

12-728 

65-4 


12-434 

12-746 


12- 478 

13- 200 


12-500 

25-20# 
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SEO 0235 


KSR 

KSR1 

LBC 

LBT 

LF 

UNIT 

L INI OA 

LIN106 

L INI OC 

UNION 

UNl 1 

UN11A 

UN1 1 H 

UN2C 

LIN2P 

LIN2S 

L1N3.1 

UN3.3 

UN3.4 

UN6.2 

UN7N 

UN70R 

IU70X 

LIN7P 

UN7R 

LIN7S 

LIN7T 

LIN7X 

UNM 

LJN9B 

LIN9E 

l IN9G 

LIN9H 

LIN9I 

UNA3 

LINB3 

LINB5 

LINB6 

LINC6 

LINCA3 

LIN05 

UNO A3 

L1NDEC 

LINE1 


LINE2 

LINE2A 
LINE 26 
UNE3 

L1NE3A 

UNE38 

LINE3C 


11-8 

27-12# 

4-227# 

4-138# 

4-76# 

7-0# 

13-274 

13-279 

13-333 

13-316 

11- 364 
13-375 
13-361 
22-39 
22-45 
22-71 
22-126 
22-137 
22-145 
22-344 
22-436 
22-407 
22-399 
22-431 
22-410 
22-439 
22-396 
22-402 

12- 258 

13- 163 
13-196 

12- 305 

13- 165 

12- 698 
22-235 
22-152 
22-284 
22-328 
22-343 
22-189 
22-268 
22-185 

13- 198 
22-242 
12-85 

12- 509 

13- 157 
12-87 
12-558 
22-44 
22-69 
12-88 
12-667 
12-647 
12-635 
12-496 


27-10# 27-11 


24-92 

12- 710* 
63-52# 
63-53# 
63-54 # 
63-56# 
63-60# 
63-61# 
63-59# 
63-1# 
63-2# 
63-3# 
22-132 
22-144 
22-235# 
22-358 
63-33# 
63-42# 
63-40# 
63-37# 
63-43# 
63-38# 
63-39# 
63-41# 

13- 515 
63-45# 
63-50# 
63-51# 
63-46# 
63-48# 
63-11# 
63-15# 
63-23# 
53-28# 
63-29# 
63-13# 
63-22# 
63-14# 
22-76 
22-256 
12-97 
12-531 
22 - 8 # 
12-99 
12-568 
22-49 
22-72# 
12-100 

m 

22-137# 

22-144# 


43-1 

13-19* 


43-1 

13-20* 


64-20 

13-170 


64-54 

13-172* 


64-55 


22 - 200 # 

22-225# 

22-364 22-379# 


22-451 63-44# 


22-166 

22-261 

12-108 

12-537 

12-112 

12- 577 
22 - 68 # 

12-112 

22-125# 

13- 160 


22-171 

22-294 

m 

188 


22-176 22-201 
22-381 22-398 
12-214 12— 217 
12-566 12-575 

12-237 12-318 
12-613 12-634 


j2-206 

12-340 

12-646 


22-208 

22-409 

12-313 

12-611 

12-375 

12-666 


22-211 

22-438 

12-330 

12-632 

12-402 

12-692 


22-215 

22-441 

12-373 

12-644 

12-424 

12-725 


22-219 

22-477# 

12-400 

12-664 

12-468 

12-743 


22-227 22-230 22-238 


12-422 

12-690 

12- 495 

13- 159 


12-466 

12-723 

12-511 

22-35# 


12-493 

12-741 

12-539 

22-452 


12-238 12-318 12-340 12-376 12-403 12-425 12-469 12-512 12-578 12-596 12-614 

22-131# 


E 
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LINE 3D 

12-744 

22-107 

22-150# 

LINE3E 

12-540 

22-164# 


LINE3F 

12-559 

22-183# 


LINE4 

12-89 

12-101 

12-112 


12-648 

12-694 

12-727 

LINE 5 

12-318 

12-340 

22-268# 

LINE5A 

1 2-378 

12-432 

12-476 

LINE 58 

12-290 

22-315# 


L1NE6 

12-244 

12-288 

22-328# 

LINt6A 

12-298 

22-343# 


LINE6C 

12-224 

12-323 

12-349 

L1NE6D 

12-227 

12-295 

12-326 

LINE 7 

12-91 

12-103 

12-114 


12-520 

12-524 

12-548 


22-396# 



LINE7A 

U 501 

12-638 

22-431# 

L1NE8 

12-278 

12-362 

13-511 

LINEN3 

22-228 

63-10# 


LINE05 

22-319 

63-27# 


LINEP5 

22-315 

63-26# 


LING6 

22-357 

63-30# 


LINH3 

22-125 

63-4# 


L1NH4 

22-251 

63-19# 


LINN3 

22-131 

63-6# 


LINOCT 

12-706 

12-706 

12-706 


1 3-330 

13-330 

13-330 


13-330 13-330 13-330 
22-283 22-286 22-307 


LINP3 

22-209 

63-8# 


LINP5 

22-293 

63-24# 


LINR6 

22-382 

63-31# 

63-9# 

LINS3 

22-164 

22-225 

LINS4 

22-254 

63-20# 


LINS5 

22-302 

63-25# 


LINSS3 

22-173 

63-18# 


LINST3 

22-168 

63-17# 


LINT3 

22-239 

63-12# 


LINU06 

22-363 

63-32# 


LINU3 

22-155 

63-16# 


LINX4 

22-257 

63-21# 


LINX5 

22-308 

63-66# 

9-206 

LKPAR 

9-179# 

9-196 

LOOEV 

9-299 

27-118 

27-132 

LODPAR 

11-131 

20-8# 


L SC 

4-228# 


9-160 

LSTAD 

7-0# 

9-157* 

LSTHDR 

32-94 

64-58 # 


H.DP40 

36-77# 

36-98 


H.DP41 

36-82 

36-89# 


H.DP42 

36-88 

36-93# 


H.DP44 

36-100 

36-105# 


H.DP50 

36-75 

36-109# 


H.DPID 

36-46 

36-66# 

15-80 

HA IN 

11-3# 

11-195 

HAIN1 

11-20 

11-49# 


HAIN2 

11-59 

11-79# 


HA I NO A 

11-13# 




I 


12-239 

12-745 

12- 318 

13- 161 

12-340 

22-108 

12-377 

22-249# 

12-498 

12-586 

12-604 

22-301# 

12-359 

12-394 

12-228 

12-561 

12-390 
12-443 
12^ ?81 
12-570 

12-439 
12-487 
12' 306 
12-588 

12-483 

12-523 

12-364 

12-606 

22-451# 




12- 706 

13- 366 
22-307 

12- 706 

13- 369 
22-317 

12- 706 

13- 372 
22-321 

12- 706 

13- 378 
22-461# 


9-215 
64-1 7# 


9-161 


35-7 


3 


SEQ 0236 


12-426 

12-470 

12-513 

12-541 

12-579 

12-597 

12-615 

12-519 

12-551 

12-391 

12-627 

12-547 

12-626 

12-395 

12-656 

12-623 

12-659 

12-405 

12-679 

12-655 

12-678 

12-440 

12-729 

till 

22-357# 

12- 484 

13- 201 

12- 488 

13- 512 


12- 706 13-180 13-183 13-186 13-321 13-321 13-321 

13- 384 22-114 22-154 22-157 22-187 22-191 22-253 



f 
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HANTER 

27-168 

32-10# 

12-261 

MASK 

7-0# 

12-241* 

HATCH 

13-55 

13-220# 

19-28 

HAXCYL 

17-3 

18-37 

59-64 

65-54 

65-54 

HAXER 

7-0# 

34-38 

19-19 

HAXSEC 

17-25 

18-28 


65-54 

65-54 

19-23 

NAXTRK 

17-14 

18-32 


65-54 

65-54 


HCPE 

4-87# 



HOPE 

4-107# 



HERR1 

31-94 

64-44# 


HERR2 

31-92 

64-45# 


HESFE 

9-192 

64-48# 

65-11 

HESSAG 

7-0# 

?i-50 

HINCYL 

15-41 

,6-47 

17-4 

59-56# 

65-54 

65-54 

H1NSEC 

15-39 

16-45 

17-26 

59-60# 

65-54 

65-54 

H1NTRK 

15-40 

16-46 

17-15 

65-54 

65-54 

65-54 

HINUTE 

7-0# 

9-96* 

11-87* 

HNTBL 

7-0# 

22-60 


HOH 

4-193# 



HOL 

4-140# 



HREAO 

9-232 

64-56# 


HRHCS1 

67-2? 

67-49# 


HRHVFC 

67-3.< 

67-S0# 


HSFULL 

32-26 

64-46# 


HSGCTS 

32-33 

64-47# 


HSGFOfi 

35-1 

64-28# 

64-26# 

HSGON 

34-28 

35-1 

HSPRH 

27-94 

64-62# 


HSWAIT 

51-21 

64-63# 


HSWRO 

27-79 

64-36# 


HXF 

4-108# 



HXUNDW 

53-173# 

55-159 



N 64-33# 


NED 

4-111# 



NEDCLK 

23-70 

64-32# 


NEH 

4-110# 



NEUASN 

27-42 

28-49# 


NEWUNT 

7-0# 

10-32* 

11-53 

NODRVS 

11-90 

64-55# 


NOENTY 

32-125 

64-57# 


NOHTCH 

12-688# 

13-57 


NONE 

39-81 

64-42# 


NOTAVL 

64-15# 



NOTPRS 

9-286 

27-182 

64-14# 

NOTRH 

9-283 

27-180 

64-13# 

NOTSAF 

9-292 

27-174 

64-16# 

NSA 

4-195# 



OfFDJR 

4-210# 



OFFON 

4-133# 



OFFSET 

7-0 

12-247 

12-268 


12-315* 

12-386* 

12-435* 

12-479* 

29-71* 

65-54 

29-98 

65-54 

29-101* 

65-54 

29-121 

65-54 

19-34 

29-73* 

29-110 

29-113* 

19-30 

29-72* 

29-104 

29-107* 


17- 

6 

17-9 

18-16 

18-18 

65- 

■54 

65-54 

65-54 

65-54 

17- 

•28 

17-31 

18-22 

18-24 

65- 

•54 

65-54 

65-54 

65-54 

17-17 

17-20 

18-19 

18-21 

65- 

■54 

65-54 

65-54 

65-54 

26- 

■18 

26-39* 

26-40 

26-42* 


11-69 11-70* 27-169* 


12-285 13-442 22-332 22-366 


f 


SEO 0237 


12-515* 

12-543* 

12-620* 

12-652* 

12-671* 

13-500 

13-505 

29-123* 

65-54 

59-55# 

65-54 

59-56 

59-57 

59-58 

59-59 

59-60 

59-59# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 

59-57# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 


29-76* 

65-54 

29-78* 

65-54 

29-97 

29-102* 

29-118 

29-120* 

29-125 

18-30 

65-54 

18-34 

65-54 

19-17 

29-80* 

29-109 

29-114* 

29-127 

18-35 

65-54 

19-21 

29-79* 

29-103 

29-108* 

29-126 

59-58# 
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G 3 


SEQ 0238 


OFLIN 

ONES 

ONE SEC 

OPE 

OP I 

OPIER 

0P1ER1 

OPT 

OPTBL 

ORDERQ 

OVRWRT 

PACK 

PAR 

PARI 

PAR10 

PAR1 1 

PARK 

PARI 5 

PARI 6 

PARI 9 

PAR2 

PAR20 

PAR21 

PAR 3 

PARA 

PAR 5 

PAR 6 

PAR 7 

PARS 

PAR9 

PARENT 

PARER 

PARLST 

PASSES 

PAT 

PATTER 

PCLOCK 

PERFEX 

PERIOD 

PFECH 

PFECH1 

PFECH2 

PFECH3 

PFECH4 

PFTSTN 

PGE 

PGA 

PIP 

PIRO 

PI ROVE 

POPQUE 

POSER 

PRO 

PHI 

PR2 


12-42 

7-0 

7-0# 

4-230# 

4-160# 

12-154 


12-96# 

7-0# 

9-94* 11-85* 


12-507# 


26-31* 26-33* 


12-516# 

55-34 

55-67# 

56-36 

56-247 

56-290 




7-0# 

22-51 

22-53 






4-106# 

7-0# 

9-88 

11-5 

11-104 

11-115 

11-140 

11-164 

51-27 

9-209 

7-0# 

4-150# 

64-51# 

9-99* 

15-76* 

27-170 

28-49* 

28-54* 

28-59* 

28-65* 


65-3 

65-13 

65-7 

65-8 

65-10 

65-9 

65-5 

65-4 

65-11 

65-12 

65-6 

65-21# 

65-22# 

65-23# 

65-24# 

65-25# 

65-26# 

9-254 

12-158 


65-18# 

65-27# 

65-28# 

65-29# 

65-30# 

65-31# 

65-32# 

65-19# 

65-33# 

65-34# 

65-20# 

65-54 

65-54 

65-54 

65-54 

65-54 

65-54 

29-95 


65-54 

65-54 

65-54 

65-54 

65-54 

65-54 

33-8# 


65-54 

65-54 

65-54 

65-54 

65-54 

65-54 


65-54 

65-54 

65-54 

65-54 

65-54 

65-54 


65-54 

65-54 

65-54 

65-54 

65-54 

65-54 


65-54 

65-54 

65-54 

65-54 

65-54 

65-54 


9-174* 

9-253 

65-3# 



7-0# 

4-103# 

35-1 

65-5 


65-6 

7-0# 

13-225 

17-78 

17-80 

7-0# 

23-44* 

23-49* 



4-8# 

56-69 


24-105 

24-111 

24-85 

24-94 

24-100 


65-54 

65-54 

65-54 

65-54 

65-54 

65-54 


65-54 

65-54 

65-54 

65-54 

65-54 

65-54 


24-119 24-133 24-136 24-139 24-142 24-149 39-65 39-87 64-35# 


-1 
-1 
-1 
-1 
-1 
-1 
4-109# 
4-137# 
4-141# 
4-76# 
4-76# 
55-80 
12-460 
4-76# 
4-76# 
4-76# 



55-131 

12-493# 

35-1 


42-1* 


55-220 56-241 58-190# 
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H 3 


SEO 0239 


PR3 

PR4 

PR5 

PR6 

PR7 

PROCES 

PRT8AD 

PRTIN 

PS 

PSEL 

PSU 

PWRFLG 

PWRVEC 

QDRV 

QUES 

R6 

B 7 

RANCYL 

RANOOA 

RANOWC 

RANPAT 

RANSEC 

RAWS ! I 

RANTRK 

RANK IT 

RATIO 

RO.-OR 

RD.RN 

RD.RA1 

RD-RN3 

RD.RN4 

RD.WRO 

RDCHR 

RDDAT 

RPHD 

RDL1N 

RDONLY 

RDY 

READDR 
RE ADHD 
RE AO IN 
RE CAL 
RECALO 
RECALT 
REOAPIC 
REL8UF 
RELSE 
RE PHD 
REPLZ 
RESREG 

RESVEC 

RETRY 


4-76# 

4-76# 

4-76# 

4-76# 

4-76# 

11- 172 

12- 240 
12-44 

4-76 

55- 11 
4-86# 
4-76# 

9- 179 
4-76# 

53- 95# 
34-8 

4-76# 

4-76# 

16- 36 
7-0# 
7-0# 

17- 68# 
17-25# 

16- 49 

17- 14# 
17-69 

7-0# 

58-11* 

54- 83 

56- 99 
58-13# 
58-20 
58-22 
58-15# 
40-1 

4-261# 

4-262# 

9-193 

7-0# 

4-83# 

12-371 

12-372 

4-251# 

4-244# 

10- 28 
12-502 
27-62 

11-183 

4-246# 

11- 192 
24-83 
14-164 
58-139 
4-76# 
7-0# 

12- 480* 


27-13 













9-28 













12-3# 

12-282 

12-108# 

4-76# 

55-12* 

12-650 

9-93* 

55-58* 

i 3-339# 

27-13* 

55-68 

27-86* 

55-114* 

35-1* 

39-43 

39-44* 

39-98* 

51-14* 

54-15 

54-16* 

54-45* 

54-S^« 

9-267 

9-25* 

58-131 

64-3# 

9-25 

10-35 

9-25* 

58-149* 

9-25* 

10-48* 

51-1* 

58-163 

9-25* 

29-11 

51-1* 

58-165* 

51-1* 

51-1* 

58-179 

51-2# 

51-1* 

58-191 

51-1* 

58-192* 

51-1* 






1 1 t 

17-40 

65-12 

65-7 












17-45# 

17-53 












17-72# 

10-8* 

58-12* 

54-96 

56-121 

16-15 

58-14# 

54-100 

56-155 

65-8 

62-3 

55- 144 

56- 208 

55- 187 

56- 212 

55-198 

57-41 

55-208 

57-86 

56-25 

58-10# 

56-44 

58-42 

56-47 

58-81 

56-50 

56-74 

56-76 

56-78 

58-23# 

58-25# 

58-16 

52-1# 

7-0 

7-0 

9-212 

9-104* 

62-3 

15-65 

13-471 

9-238 

9-107* 

62-4 

20-32 

27-22 

9-207 

31-43 

27-95 

9-230 

32-34 

15-67 

33-19 

16-9 

52-1# 

27-54 

67-26 

27-66 

67-37 


• 



12-414 

12-415 

12-452 

12-453 

13-420 

13-467# 

20-18 

21-28 

22-200 

23-14# 







•T'Oor'omL* 
i i i i i 

Od -no 

13-434 

27-149 

12-683 

13-412# 











64-20# 

39-13# 

27-83 

36-49 

49-1 

50-1 

52-1# 

54-54 

55-52 

55-55 

55-115 

55-262 

56-10 

57-22 

58-98 

12-221* 

12-516* 

12-246* 

12-544* 

12-265* 

12-619* 

12-266 

12-651* 

12-266 

12-672* 

12- 320* 

13- 495* 

12- 343* 

13- 507* 

12- 348* 

13- 508 

12- 352* 

13- 508 

12-353 

22-380 

12-353 

12-387* 

12-436* 


I 
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RHEXT 

9-114* 

9-123* 

9-127* 

RK80 

13-401 

13-415 

13-435 

RMADR 

9-85* 

27-14 

53-165# 


58-70 

58-111 

67-44 

RTsAS 

53-184# 

54-99* 

56-153 

RNBA 

53-179# 

56-117 


RHBAE 

RHCS1 

53-198# 

53-177# 

54-75* 

54-81 

56-216 

56-226 

57-86 

R*CS2 

27-15* 

53-181# 

54-35* 

57-54* 

58*18 

58-53 

RMCS3 

53-199# 


55-164 

RHDA 

53-180# 

55-141 

R«06 

53-186# 

58-75 

55-157 

R«OC 

53-191# 

55-143 

RNOS 

53-182# 

54-96 

55-74 

RHOT 

53-188# 

54-83 


RHEC1 

53-195# 



RNEC2 

53-196# 

58-85 

53-183# 

RMER1 

12-416 

12-454 

RKER2 

53-194# 

56-47 

56-255 

RMERRS 

53-43# 

54-18 

56-193 

RWHR 

53-192# 



RMINJ T 

9-263 

54-14# 


R«LA 

53-185# 



RWR1 

53-187# 



RHWR2 

53-193# 


55-144 

RHOF 

53-190# 

54-95 

RMR 

4-149# 



RHSN 

53-189# 



RMTMP 

26-49 

57-6# 

54-31 

RHVEC 

9-86* 

53-166# 

RHWC 

53-178# 

56-78 

56-99 

RNOP 

4-242# 



r re 

4-250# 

13-400 


RTNCTR 

13- 399# 

35-3# 


RTURN 

35-1 


S 

22-207 

22-216 

63-7# 

SATPOW 

51-1 

51-9# 

55-222 

SAVEFG 

9-264* 

53-132# 

SAVER1 

7-0# 

13-22* 

13-84* 

SAVER5 

7-0# 

13-23* 

13-85* 

SAVREG 

14-150 

56-9 

27-12 

36-39 

SC 

56-153# 


SC04 

4-201# 



SCI 

4-199# 



SC10 

4-202# 



SC11 

56-211 

56-237# 


SC 1 2 

56-189 

56-252# 

56-264# 

SC 1 3 

56-180 

56-183 

SC2 

4-200# 



SC20 

4-203# 

56-172 


SC3 

56-168# 

56-197 

SC4 

56-170# 

56-192 

SC 5 

56-169 

56-178# 


SC6 

56-185 

56-203# 



9-133 

13-473 

54-34 

53-168# 

14-175 

55-18 

58-95 

31-46 

55-134 

55-11# 

55-154 

56-246* 

56-268* 

57-77 


54-93 

58-42 

54-74* 

58-71* 

55-72 

54-76 

58-77 

55-87 

55-29* 

58-112* 

55-148 

55-135* 

58-117 

55-178 

56-76 



55- 183 

56- 208 

55- 194 

56- 253 

56- 74 

57- 41 


54-100 

56-44 

56-212 

56-254 

56-253* 

56-254* 

56-255* 

62-2 

55-146 

55-187 

55-189 

55-198 

54-33 

56-119 

55-12 



56-28 

13-136 

13-145 

49-1 

56-243 

13-144 

13-149* 

50-1 

13-148* 

52-1# 

54-14 

56-199 

56-227 

56-233 

56-248 


L 


3 


SEO 0240 


55-172 56-5 57-39 58-11 58-17 58-48 58-52 

55-166 55-209 55-219 55-230 56-25 56-126 56-155 

55-155* 55-173* 56-24* 56-207* 56-252* 56-267* 57-40* 

62-2 62-2 62-2 

55-200 56-50 56-121 56-123 

55-14 55-67 55-242 56-4 57-9 58-67 58-130 


56-291 




20 


SEQ 0241 


J 3 

29-93 29-94 29-144* 29-149* 32-67 

26-37* 51-12* 

58-110# 

12-529 21-21# 


57-113# 

56-286 57-53 57-112 58-67# 



K 3 


SEQ 024? 
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CROSS REFERENCE TABLE iCREF V04.00 ) 

SW02 4-76 4-76# 9-186 9-269 11-185 

SW03 4-76 4-76# 

SW04 4-76 4-76# 15-46 34-56 35-1 

SW05 4-76 4-76# 22-80 22-150 

SW06 4-76 4-76# 20-23 

SW07 4-76 4-76# 13-174 

SW08 4-76 4-76# 35-1 35-1 

SU09 4-76 4-76# 

S¥l 4-76# 

SW10 4-76# 22-8 

SW1 1 4-76# 

SW12 4-76# 

SU13 4-76# 22-11 41-1 

SW14 4-76# 

SW15 4-76# 22-416 22-443 

S'*2 4-76# 

SW3 4-76# 13-66 13-339 

SU4 4-76# 

SW5 4-76# 22-183 

SW6 4-76# 

SW7 4-76# 

SW8 4-76# 

SW9 4-76# 

SWR 6-0# 9-25 9-25 9-25* 9-25* 9-25* 9 

13-339 15-46 16-11 20-23 22-8 22-11 22 

35-1 35-1 35-1 39-96 40-1 40-1 40 


22-11 41-1 

22-416 22-443 

13-66 13-339 

22-183 


9-25 

15-46 

35-1 


9-25 

16-11 

35-1 


SWREG 

5-i# 

9-25 

9-30 

SWT IH 

12-40 

12-85# 


STSTAT 

9-272 

64-18# 

63-5# 

T 

22-202 

22-212 

TAB 

27-163 

64-7# 


TAB.XY 

5-9# 

6-0 


TABLE 

29-88 

65-39# 


TABLEO 

65-39 

65-54# 


TA8LE1 

65-42 

65-54# 


TABlE2 

65-42 

65-54# 


table 3 

65-42 

65-54# 


TABLE4 

65-42 

65-54# 


TABLES 

65-42 

65-54# 


TABLE6 

65-42 

65-54# 


TABLE 7 

65-42 

65-54# 


TAP 

4-194# 



TBI TVE 

4-76# 



TD 

56-8 

56-16# 


THEAD 

16-35# 


55-235 

TIMER 

53-145# 

55-108* 

i'KVEC 

4-76# 

40-1* 

40-1* 

TPVCC 

4-76# 


9-25* 

TRAPVE 

4-76# 

9-25* 

TRE 

4-88# 



TRFER 

12-138 

12-611# 


trklmt 

7-0# 

13-109 

18-46 

TRNSWT 

53-104# 

55-132* 

55-245 

TRTVEC 

4 76# 



TST1 

9-19# 



TYDRV 

24-87 

27-162 

39-60# 


9-25* 

20-23 

39- 96 

40- 1 


9-25* 

22-8 

40-1 

40-1 


9-25* 

22-11 

40-1 

40-1 


9-30 9-105 9-186 
22-80 22-150 22-183 
40-1* 41-1 41-1 


9-269 11-185 12-17 13-66 13-174 
22-416 22-443 27-56 27-68 34-36 
41-1 41-1 41-1 51-1 51-1* 


56-204* 56-265* 56-272* 57-12 57-K* 57-68* 57-93* 57-99* 57-105* 


19-23 19-50 

55-257* 56-21 


23-34 

56-22* 


29-72 

56-66- 


29-91 

57-48 


-143* 31-40 32-60 


188 


L 



3 


S£0 0243 


33-17 

35-1 

52-1# 




9-232 

9-192 

9-205 

9-209 

9-211 

9-224 

9-228 

9-289 

9-292 

9-299 

9-301 

9-302 

9-313 

9-319 

11-192 

11-194 

12-96 

22-10 

23-70 

24-21 

24-68 

24-80 

24-85 

24-86 

24-88 

24-92 

24-94 

24-95 

24-130 

24-131 

24-133 

24-134 

24-136 

24-137 

24-139 

27-17 

27-20 

27-79 

27-81 

27-94 

27-107 

27-159 

31-95 

31-97 

32-16 

32-26 

32-33 

32-50 

32-77 

33-18 

33-26 

34-7 

34-8 

34-9 

34-11 

34-26 

35-1 

35-1 

35-1 

35-1 

37-32 

39-32 

39-60 

40-1 

40-1 

40-1 

40-1 

40-1 

40-1 

40-1 

40-1 

40-1 

41-1 

41-1 

41-1 

41-1 

42-1 

44-1 

45-1 

51-1 

51-21 

52-1# 

67-16 

67-19 

34-10 

34-31 

35-1 

35-1 

52-1# 




64-8# 


17-45 65-3 


55- 157 55-164 55-166 55-178 55-183 55-189 55-194 

56- 216 56-226 58-36# 



n 
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CROSS REFERENCE TABLE (CREF ¥04.00 ) 


WRTCHK 

7-0# 

56-132 

56-133 

65-10 

URTDAT 

4-259# 

7-0 

15-70 

56-135 

WRTHO 

4-260# 




WRTPK 

10-38 

11-127 

15-14# 

9-39 

XXOP 

7-0# 

27-130 

9-35* 

9-38* 


Y 

64-34# 




ZEROS 

7-0 

7-0# 

13-76* 

13-83* 

ZR01ND 

7-0# 

13-21* 


9-41* 

13-82 


9-46 


9-57 


3 


SEO 0244 


9-295 9-29 7 10-20 10-22 27-114 27-116 27-128 


N 3 


SEQ 0245 


l 

CZRNAAO RM80 PERF EXER NACRO V04.00 14-JAN 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SSCHRE 

5-586# 

6-0 



SSCMTM 

5-586 # 



SSESCA 

4-76# 




SSNEWT 

4-76# 

9-19 

52-1 

52-1 

SSSET 

52-1 

52-1 

SSSETH 

9-25 

9-25# 



SSSKIP 

4-76# 




SACT1 

4-50# 

5-5 

6-0# 


.SAPTB 

4-53# 

6-0 


.SAPTH 

4-53# 

<-8 



.SAPTY 

4-53# 

46-1 



.SCATC 

4-51# 

5-1 



.SCUTA 

4-51# 

5-586 



.SDB2D 

4-52# 

49-1 



. SDB20 

4-52# 

50-1 



.SFOP 

4-53# 

33-1 



.SERRO 

4-51# 

41-1 



.SERRT 

4-51# 

42-1 



.SPOWE 

4-53# 

51-1 



.SRANO 

4-52# 

47-1 



.SREAD 

4-50# 

40-1 



.SSAVE 

4-52# 

48-1 



.(SIZE 

4-52# 

66-1 



.STRAP 

4-52# 

52-1 



.STYPD 

4-51# 

45-1 



.STYPE 

4-50# 

43-1 



.STYPO 

4-51# 

44-1 



.EQUAT 

4-50# 

4-76 



.HEADE 

4-50# 

4-57 



.SETUP 

4-50# 

4-267 



.SURHI 

4-50# 

4-58 

4-59 

4-60 

.SURLO 

4-50# 

4-58# 

A 

25-2# 

25-16 

25-17 

25-18 

CKCHR 

4-11# 

39-189 

39-197 

32-67 

CKDIG 

4-21# 

32-53 

32-60 

CKNUM 

4-34# 




COMHEN 

4-76# 




ENOCOF1 

4-76# 




ERENTR 

40-13# 

41-1 


56-198 

ERRCAL 

53-1# 

56-158 

56-196 

ERROR 

4-76# 




ESCAPE 

4-76# 




GETPRI 

4-76# 

66-1 

9-30 

9-30# 


GETSWR 

4-76# 


NORETA 

5-11# 

6-0 



HULT 

4-76# 

9-19 



NEWTST 

4-76# 

12-497 

13-150 

POP 

4-76# 

12-461 


32-128 

39-34 

45-1 

46-1 

PUSH 

4-76# 

12-456 

13-143 

21-21 

32-10 

32-93 

45-1 

46-1 

READ 

53-8# 

54-83 

54-96 

54-100 

56-99 

56-121 

56-155 

56-208 

REPORT 

4-76# 




SETPRI 

4-76# 

40-1 


52-1 

SETTRA 

52-1 

52-1 

52-1 
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52-1 52-1 52-1 52-1 52-1 


4-61 4-63 4-65 4-70 4-73 

25-19 25-20 

33-23 


21-54 

22-109 

24-33 

28-44 

29-48 

46-1 

47-1 

48-1 

51-1 

51-1 

22-35 

22-400 

22-4C8 

23-45 

24-7 

46-1 

46-1 

47-1 

48-1 

51-1 

55-144 

55-187 

55-198 

56-25 

56-44 

56-212 

57-41 

57-86 

58-42 


52-1 

52-1 

52-1 

52-1 

52-1 


52-1 52-1 52-1# 52-2 


4-74 


29-128 

30-29 

31-98 

31-107 

32-80 

28 -28 

29-10 

30-10 

31-33 

31-37 

51-1 

56-47 

56-50 

56-74 

56-76 

56-78 

52-1 

52-1 

52-1# 

52-2 



i 


B 


4 


SEQ 0246 


CZRHAAO 

RA80 °ER f 

EXER AACRO V04.00 14-JAf 

CROSS REFERENC" I 

ABLE (CREF V04.00 

) 

SETUP 

4-76# 

9-25 



SKIP 

4-76# 




SLASH 

4-76# 




STARS 

4-76# 

5-5 

5-8 

5-8 


40-1 

40-1 

40-1 

40-1 


50-1 

51-1 

51-1 

52-1 

SWRSU 

4-76# 

9-25 

9-25# 


TRATRP 

52-1# 

52-3 



TVPfllN 

4-76# 




TYPOEC 

4-76# 

24-93 

24-104 

24-132 

TYPNAfl 

4-76# 

9-30 



TYPNUA 

4-76# 




TYPOCS 

4-76# 

9-274 

11-63 

24-74 

TYPOCT 

4-76# 

40-1 

42-1 

42-1 

TYPTXT 

4-76# 

9-6 

9-44 

9-55 


24-154 

24-137 

24-140 

24-143 

UPCODE 

50-2# 

51-1 



WRITE 

53-18# 

54-93 

54-95 

55-87 


55-194 

55-200 

55-219 

55-230 

xxEP 

54-53# 

35-1 
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5-8 

40-1 

53-36 

6-0 

41-1 

66-1 



9-19 

44-1 

24-135 

24-138 

24-141 

35-1 


27-160 

31-96 

34-10 

34-31 

35-1 

9-61 

24-68 

24-80 

24-92 

24-95 

55- 141 

56- 117 

55- 143 

56- 119 

55- 146 

56- 123 

55- 148 

56- 126 

55- 157 

56- 216 


22-1 

45-1 

22-3 

46-1 

35-1 

47-1 

37-4 

48-1 

38-4 

49-1 

35-1 





24-103 

24-106 

24-114 

24-130 

24-131 | 

55- 164 

56- 226 

55-166 

55-178 

55-183 

55-189 


L 



